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PAGE 60,132 
5 

I *#*************#****#****#****#**#********#**#******#********•*•■**•*•*•*•*#•*•* 

; Filename is PCSINIT.ASM I 

• *************************#**************************•*■*■#•*•*•*■*■****•■*■*■*•*•*•*■** 

; This file contains code and data for Emulator primary initialization I 

; described in Sections 9.2 and 9.3 of the Program Logic Description I 

5 for the OMNINET PCShare Disk Server Emulator, Version 2.0, dated 7 I 

; November 1983. The code in this file is executed as an independent I 

; program, not linked to the Emulator. I 

9 I 

5 Primary initialization obtains the location of the Corvus utilities I 

5 jump table by a device driver input call to the device PCSMHOOK (as I 

^ do all the Corvus utilities)» The offset of the ECT is in the first i 

5 word following the jump table. To assure that EI—INIT is matched I 

? with the correct version of the Emulator, the EC.IDEN field of a I 

5 dummy ECT allocated within El-INIT is compared with the same field I 

5 in the driver. Initialization is abandoned if the two fields are I 

5 not the same. 1 

5 I 

9 Pt completion of its other processing El-INIT calls the warm start i 

s entry of the jump table to initialize the transporter and start the I 

5 operation of the Emulator. I 

- *********************************************************************** 

« | 

? 1 

; Versions £.0 i 

5 I 

§ Last Updates £6 December 1983 I 

5 l 

% Written bys R.B. Talmadge, Computer Technology Ltd I 

5 l 

5 Updatess None I 

; I 

-*********************************************************************** 

s 

ENDIF 


? 

5 *********************************************************************** 

5 Special Macros for this initialization program 

- ************ *********************************************************** 


Macro Name s SHOW String,Rply,crlf 

Functions Displays the character string located at the offset 
string in the data segment■ Requests reply wait for 
Rply characters if Rply is present. Requests no 
CRLF sequence at end if crlf is present 


SHOW MACRO 
MOV 
IFB 
MOV 


String,Rply,crlf 

DX,OFFSET String ;;string location 

<Rply> 

CX,0 5 ;Set reply count 
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ELSE 



MOV 

END IF 

CX,Rply 


IFNB 

<cr1f> 


MOV 

ENDIF 

CH, i 

Unset crIf suppression 

CALL 

ENDM 

ISMsg 

; 5 Do output etc 


Macro Name s LEAVE 

Functions Ends program and returns control to DOB 


LEAVE 


MACRO 

MOV 

INI 

ENDM 


AH,4CH 
81 H 


UUThats the code 


#***#•#*****##****#*•*#*********#*****#**#****#*****##*****##*###*###*•*#•# 

START <EI> , <TRACE) ;Initialization structures 


0000 


; Segment Usage Definition 

s tt********************************************************************** 


PCS 


SEGMENT PARA 

ASSUME CS s PCS,DS s PCS,ES 2 PCS 


Allocated data 


i 


**'**##**#***#ft#*#*******&*****X:****##&#*&&*K*&&##***‘* **&*&&**&*** &**&#& 


= 0000 

Dta_Bgr. 

- . ‘ 

EQU 

THIS BYTE 

5 Start of Data area 


« 

9 

Constants 


= 0020 

5 

$VerRec 

EQU 

32 

5 User file record with date 

= 0044 

$FrmDte 

EQU 

44H 

UOffset in record to date 

= 0012 

$FrmSrv 

EQU 

12H 

UOffset in record to server 

= 0007 

*Beep 

EQU 

7 

;Character to beep console 

= 07BE 

*1982 

EQU 

1982 

5 Value date should have 


Dummy Emulator Cornmunicat ion Table- Emulator key offsets 
table location will be stored in fields DDRH,DDRHS and the 
ECT offset within the Emulator is saved in field TckO 


0000 

50 43 53 48 41 52 

45 38 

DrnECT 

ECT 

<> 

5 Allocated to compare fields 

0008 

43 





0009 

03 





000ft 

01 
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« 


i 

I 

l 

l 

I 

f 

« 

f 

I 


000 B 

01 




0000 

01 




000D 

01 




000E 

0064 




0010 

0000 




00 1 a 

50 43 
45 20 

53 

48 

41 

001 A 

50 43 
45 20 

53 

48 

41 

00aa 

0A 

t 




002C 

m 

002D 

m 

002E 

00 

002 F 

00 

0030 

20 

0031 

20 

0032 

00 

0033 

01 

0034 

0000 

0036 

0000 

0038 

0000 

003A 

0000 

003C 

0000 

003E 

0000 


€ 

« 

i 

f 

< 

1 

f 

( 

f 


f 

f 

I 

I 

f 

f 

I 

< 

f 

€ 









3 

5 * 

...■ rr _ T „- -, t ., T . r . 

tTf _,. rm , ..., rr „ n 

! 

\ 

1 

! 

j 

1 

i 

1 

I 

I 

! 

« 

l 

1 

! 

1 

! 

1 

1 

i 

1 

1 

! 

1 

! 

1 

1 

| 

! 

! 

1 

! 

i 

\ 

! 

1 

i 

i 

i 

1 

i 

1 

I 








5 

Message 

Strings 


0040 

0A0D 





5 

CRLF2$ 

DW 

0A0DH 

H Two carriage return line feed comb 

0042 

0A0D 





CRLFtfc 

DW 

0A0DH 

;Carriage ret urn 1 ine feed combo 

8044 

24 






Blanks 

DB 

i 

; used for messages and record end 

0045 

0D 






CR$ 

DB 

0DH 

5 Carriage ret urn 

0046 

IB 






HiThr 

DB 

1BH 


0047 

5B 

*52 

4A 





DB 

’ C2J’ 

5 Clear screen 

004A 

IB 







DB 

1BH 


004B 

5B 

35 

3B 

32 

34 

48 


DB 

’C5;24H’ 

s0ursor to line 5 colurnn 24 

0051 

IB 







DB 

1BH 


0052 

5B 

37 

6 D 





DB 

’ C7m’ 

1 Reverse video 

0055 

50 

43 

53 

68 

61 

72 


DB 

*PCShare 

Em u1at or Initialization 9 


65 

20 

45 

6 D 

75 

60 






61 

74 

6 F 

72 

20 

49 






6 E 

69 

74 

69 

61 

60 






69 

7ft 

61 

74 

69 

6 F 






6 E 










0074 

IB 







DB 

1BH 


0075 

5B 

30 

6 D 





DB 

’ C 0 m’ 

1 Cancel reverse video 

0078 

IB 







DB 

1BH 


0079 

5B 

39 

3B 

31 

48 

24 


DB 

’ C9;1H$’ 

1 Cursor to 1ine 9 co1urnn 4 

007F 

45 

6 D 

75 

6 C 

61 

74 

5 

No FOB 

DB 

’Emulator 

not installed $ 9 


6 F 

72 

20 

6 E 

6 F 

74 






f 

€ 

f 

I 

< 

f 

€ 

C 

f 
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f 


I 


c 

I 

€ 

f 

I 

f 

f 

C 

t 

< 

f 

f 

f 

f 

i 

f 

< 

f 

€ 



£0 

69 

6E 

73 

74 

61 





6C 

6C 

65 

64 

£4 





0096 

45 

6D 

75 

6C 

61 

74 

NoVer 

DB 

’Emulator version does not match initialization code$’ 


6F 

7£ 

£0 

76 

65 

7£ 





73 

69 

6F 

6E 

£0 

64 





6F 

65 

73 

£0 

6E 

6F 





74 

£0 

6D 

61 

74 

63 





68 

£0 

69 

6E 

69 

74 





69 

61 

6C 

69 

7A 

61 





74 

69 

6F 

6E 

£0 

63 





6F 

64 

65 

£4 






00CPI 

43 

61 

6E 

6E 

6F 

74 

NoDir 

DB 

’Cannot find Emulator directory#’ 


£0 

66 

69 

6E 

64 

£0 





45 

6D 

75 

6 C 

61 

74 





6F 

7£ 

£0 

64 

69 

72 





65 

63 

74 

6F 

7£ 

79 





£4 









00E9 

41 

6E 

£0 

65 

73 

73 

NoFle 

DB 

’ $n essential Emulator file is missing#’ 


65 

6E 

74 

69 

61 

6C 





£0 

45 

6D 

75 

6C 

61 





74 

6F 

7£ 

£0 

66 

69 





6C 

65 

£0 

69 

73 

£0 





6D 

69 


73 

69 

6E 





67 

£4 








010F 

43 

6F 

75 

6C 

64 

£0 

NoLogf 

DB 

’Could not create a log file#’ 


6E 

6F 

74 

£0 

63 

7£ 





65 

61 

74 

65 

£0 

61 





£0 

6C 

6F 

67 

£0 

66 





69 

6C 

65 

£4 






0:iae 

4C 

6F 

67 

£0 

66 

69 

IncLog 

DB 

’Log file not as large as requested#’ 


6C 

65 

£0 

6E 

6F 

74 





£0 

61 

73 

£0 

6C 

61 





7£ 

67 

65 

£0 

61 

73 





£0 

7£ 

65 

71 

75 

65 





73 

74 

65 

64 

£4 





014E 

43 

6F 

75 

6C 

64 

£0 

NoSrd 

DB 

’Could not read system files#’ 


6E 

6F 

74 

£0 

7£ 

65 





61 

64 

£0 

73 

79 

73 





74 

65 

6D 

£0 

66 

69 





6C 

65 

73 

£4 






0I6« 

55 

6E 

65 

78 

70 

65 

MoDt e 

DB 

’Unexpected firmware version date, check installation#’ 


63 

74 

65 

64 

£0 

66 





69 

7£ 

6D 

77 

61 

72 





65 

£0 

76 

65 

70 

/ C* 

73 





69 

6F 

6E 

£0 

64 

61 





74 

65 

£C 

£0 

6*3 

68 





65 

63 

6B 

£0 

69 

6E 





73 

74 

61 

6C 

6C 

61 





74 

69 

6F 

6E 

£4 





019F 

41 

7£ 

65 

£0 

69 

6E 

TBintI 

DB 

’Are interrupts installed on transporter hoard? CY/M3s 


74 

65 

7£ 

7£ 

75 

70 





74 

73 

£0 

69 

6E 

73 





74 

61 

6C 

6C 

65 

64 





£0 

6F 

6E 

£0 

74 

7£ 





61 

6E 

73 

70 

6F 

7£ 





f 


< 

€ 

€ 

« 

I 

f 

i 

f 

< 

f 

«' 

f 

i 

i 

i 

€ 

€ 

i 

€ 

« 

I 
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i 



74 

65 

72 

20 

62 

6 F 





61 

72 

64 

3F 

£0 

5B 





59 

2 F 

4E 

5D 

3ft 

20 





SB 

59 

50 







01 D 8 

IB 







DB 

1 BH 

01D9 

5B 

C 

44 

24 




DB 

9 C 2 D $ 9 5 Cursor back two 

01DD 

49 

73 

20 

45 

60 

75 

TBrenb 

DB 

9 Is Emulator to run with interrupts enabled? LY/N1 : IIYU 9 


6 C 

61 

74 

6 F 

7£ 

20 





74 

6 F 

£0 

72 

75 

6 E 





20 

77 

69 

74 

68 

20 





69 

6 E 

74 

65 

7£ 

72 





75 

7® 

74 

73 

£0 

65 





6 E 

61 

6 c! 

6 C 

65 

64 





3F 

20 

5B 

59 

£F 

4E 





5D 

3A 

£0 

5B 

59 

5D 




0213 

IB 







DB 

1BH 

0214 

5B 

C- 

44 

24 




DB 

9 C 20$ 9 ;Cursor back two 

0218 

49 

73 

£0 

45 

60 

75 

TBrtck 

DB 

9 Is Emulator to be run by timer' tick interrupt? 1IY/N1 s IINJ 9 


6 C 

61 

74 

6 F 

72 

20 





74 

6 F 

£0 

62 

65 

20 





72 

75 

BE 

20 

6 £ 

79 





20 

74 

69 

6 D 

65 

72 





20 

74 

69 

63 

6 B 

£0 





69 

6 E 

74 

65 

72 

72 





75 

70 

74 

3F 

20 

5B 





59 

2F 

4E 

5D 

3ft 

20 





5B 

4E 

50 







0251 

IB 







DB 

1 BH 

0252 

5B 

32 

44 

24 




DB 

9 C£D $ 9 5 Cursor back two 

0256 

41 

72 

65 

20 

65 

72 

WhERRl 

DB 

9 ftre error messages to be displayed at console? CY/N3 s CN11 9 


72 

6 F 

72 

20 

60 

65 





7 3 

73 

61 

67 

65 

73 





20 

74 

6 F 

20 

62 

65 





20 

64 

69 

73 

70 

6 C 





61 

79 

65 

64 

£0 

61 





74 

20 

63 

6 F 

BE 

73 





6 F 

6 C 

65 

3F 

20 

5B 





59 

2F 

4E 

5D 

3ft 

20 





5B 

4E 

50 







028F 

IB 







DB 

1 BH 

0290 

5B 

ul) CL 

44 

24 




DB 

9 C2D & 9 5 Cursor back two 

0294 

50 

43 

53 

68 

61 

72 

I nOone 

DB 

9 PCShare Emulator initialization completed^’ 


65 

20 

45 

6 D 

75 

6 C 





61 

74 

6 F 

72 

20 

69 





6 E 

69 

74 

69 

61 

6 C 





69 

7A 

61 

74 

69 

6 F 





6 E 

20 

63 

6 F 

60 

70 





6 C 

65 

74 

65 

64 

24 




02BE 

54 

79 

70 

65 

£0 

71 

BoOrv 

DB 

9 Type q to quit, anything else to call Emulators ^ 9 


20 

74 

6 F 

20 

71 

75 





69 

74 

£C 

20 

61 

6 E 





79 

74 

68 

69 

6 E 

67 





20 

65 

6 C 

73 

65 

20 





74 

6 F 

£0 

63 

6# 1 

6 C 





6 C 

20 

45 

6 D 

75 

SC 





4 

f 

f 

< 

< 

I 

I 

4 

C 

I 

i 

f 

< 

i 

4 

I 

€ 

€ 

€ 

€ 

< 
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I 


f 


€ 


I 

I 

f 

€ 

I 

r 

t 

< 

c 

f 

i 

f 

i 

€ 

€ 

f 

€ 

« 

* 



61 

74 

6 F 

7£ 

3 A 

24 




0£EE 

50 

7£ 

65 

73 

73 

a 0 

NxDrv 

DB 

’ Press any key to stop Emulator call 5 $ ? 


61 

6 E 

79 

£0 

6 B 

65 





79 

£0 

74 

6 F 

£0 

73 





74 

6 F 

70 

£0 

45 

6 D 





75 

6 C 

61 

74 

6 F 

72 





£0 

63 

61 

6 C 

6 C 

73 





£4 









0313 

07 






5 

Beeper 

DB 

$Beep :] Beeps console and moves 

0314 

IB 







DB 

1BH 5 cursor back one 

0315 

5B 

31 

44 

£4 




DB 

’ hid** 








i 

IF TRACE* 


0319 

4F 

70 

65 

72 

61 

74 

WhTrce 

DB 

,J 0 per at e with trace on ? CY/N3 ; JIN 11 ’ 


65 

£0 

77 

69 

74 

68 





£0 

74 

7£ 

61 

6 %.ir 

65 





£0 

6 F 

6 E 

3F 

£0 

58 





59 

£F 

4E 

5D 

3A 

20 





SB 

4E 

5D 







033A 

IB 







DB 

IBM 

033B 

SB 


44 

£4 




DB 

’ C2D&‘ J 5 Cursor back two 

033F 

4F 

75 

74 

70 

75 

74 

WhTdsk 

DB 

• Out put trace records to disk? 1IY/NI1 s H Y 3 9 


£0 

74 

7£ 

61 

63 

65 





£0 

7£ 

65 

63 

6 F 

72 





64 

73 

£0 

74 

6 F 

20 





64 

69 

73 

6 B 

3F 

20 





SB 

53 

£F 

4E 

5D 

3ft 





£0 

5B 

59 

5D 






0367 

IB 







DB 

1BH 

0368 

5B 

3E 

44 

£4 




DB 

’ ; Cursor back two 

036C 

4F 

75 

74 

70 

75 

74 

WhTcon 

DB 

’Output trace records to console? CY/NU s JINU’ 


£0 

74 

7£ 

61 

63 

65 





£0 

7£ 

65 

6 «^ 

6 F 

72 





64 

73 

c !0 

74 

6 F 

20 





63 

6 F 

6 E 

73 

6 F 

SC 





65 

3F 

£0 

5B 

59 

2 F 





4E 

5D 

3A 

£0 

5B 

4E 





5D 









0337 

IB 







DB 

IBM 

0398 

5B 

3£ 

44 

£4 



END IF 

£ 

DB 

’ C 2 D$’ ?Cursor back two 








5 “ ***** 

File 

Control Data 

039C 

039D 

FF 

05 

C 

00 

1 


IrtFCB 

EFCB 

<> 5 Standard extended file control 

03A£ 

00 









03A3 

03A4 

00 

08 

L" 








£0 

3 


I 

c 

f 

I 

f 

f 

I 

f 

I 

t 

f 

I 

I 

i 

« 

c 

« 

« 

# 


f 


i 


€ 
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« 


f 

€ 

1 

t 

f 



f 

I 

« 

< 

« 

f 

I 

I 

« 

f 

€ 

€ 

< 

C 


03CS 

43 






IriDSA 

DB 

* C’ 

03C9 

3A 

5C 






DB 

1 !\’ 

03CB 


40 

C 

00 

3 


InDSAl 

DB 

64 DUP(0) 

040B 

43 






InDIR 

DB 

’ C’ 

040C 

3H 

5C 






DB 

i . \ i 

040E 


08 

c 

20 

3 


IriDIRl 

DB 

$$DIR DUP( 

0416 

00 







DB 

0 

0417 


80 

c 

00 

3 


InDTA 

DB 

128 DUP(0) 

0497 

0001 





InLogm 

DW 

1 

0499 

43 

6 F 

72 

76 

75 

73 


DB 

’Corvus PC 


£0 

50 

43 

53 

68 

61 





72 

65 

£0 

44 

69 

I vS 





6 B 

£0 

53 

65 

72 

76 





65 

70 

f a 

£0 

45 

6 D 

75 





6 C 

61 

74 

6 F 

72 

£C 





20 

56 

65 

72 

"7 "I' 

l v3 

69 





6 F 

6 E 

£0 

32 

EE 

30 




04C9 


4C 

C 

£0 

3 



DB 

76 DUP(’ » 

0515 

0D0A 






DW 

0D0AH 

0517 

50 

43 

tJ w f 

4D 

48 

4F 

5 

ErnNme 

DB 

’PCSMHOOK’ 


4F 

4B 








05 IF 

07BE 





ErnVers 

DW 

$1982 

0521 

55 

53 

52 




InEXT 

DB 

’ USR’ 

0524 

53 

59 

31 





DB 

’ SY1 ’ 

0527 

53 

59 

32 





DB 

* SY2’ 

052ft 

4C 

4F 

47 





DB 

’ LOG’ 


f 


1-7 


i 


< 

f 

I 

< 

« 

I 

^Changed to logged disk letter m- 

;For ret urn t o previous va 1 ue * 

3 64 bytes irt which to save directory 

4 

?Changed to Emulator disk letter g 

3 For setting directory path ^ 

? Ho1ds Emu1at or directory name 

f 

3 End if all eight bytes used ! 

3 DTP f or receive ® 

I 

;DTH and first record if we writ e 1 og 

Disk Server Emu1ator, Version £- @* | 

i 

< 

3 end of DTH will have CRLF ^ 

3 Driver name of Emulator 

f 

3 Version date expected (reverse bytes) m 

3 Holds extension for file names ^ 


t 


f 
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5 

- ***#****#**#*•*####*######*•*•************#•##•#***##**##•*#’*•*********####### 
5 Internal Subroutines I 

s ^ **#*****#**#***##*******************#********#*^#****#********##**^*#* 


Requests open of current file in FCB InFCB. Input is 
(AL) - at t ribute for file 
DS:(SI) ~ offset of extension 
Condition code set on exit to zero (equal) if open fails 
and (SI) « <SI)+ 3 


05£D 




I SO pn 

PROC 

NEAR 


®5£'D 

A£ 

03Ac! 

R 


MOV 

IriFCB. ATR 

, AL $Set desired attribute 

0530 

AC 




LODSB 


;Insert three bytes 

0531 

A£ 

03AC 

R 


MOV 

BYTE PTR 

InFCB. EXT, AL $ from string into 

0534 

AC 




LODSB 


; into the extension 

0535 

A£ 

03AD 

R 


MOV 

BYTE PTR 

InFCB. EXTh-1 , AL ; and increment the 

0538 

AC 




LODSB 


5 st rin g position 

0539 

Ac! 

03AE 

R 


MOV 

BYTE PTR 

InFCB. EXT+£, AL. 

053C 

BA 

039C 

R 

9 

MOV 

DX,OFFSET 

IriFCB 

053F 

B4 

0 F 



MOV 

AH,0FH 

5 Try 10 open file 

0541 

CD 

£1 



INT 

£ 1 H 


0543 

■n n 

vjL* 

FF 



CMP 

AL,0FFH 

5 Set; cond i t i on code 

0545 

C3 




RET 


5 E x i t 

0546 




I SO pn 

5 

ENDP 







5 

5 

5 

Requests close of 

current file in FCB InFCB 

0546 




n 

ISC Is 

PROC 

NEAR 


0546 

BA 

039C 

R 


MOV 

DX,OFFSET 

InFCB 

0549 

B4 

10 



MOV 

AH,10H 

;Set close code 

054B 

CD 

£ 1 



INT 

aiH 

; and call DOS 

054D 

C3 




RET 



054E 




ISC Is 

5 

ENDP 







5 

« 

9 

Request s out put o 

f a message with optional reply. In 





N 

9 


(CL) = 0 

then no reply; not 0 , reply 





N 

9 


(CH) = 0 

end with CRLF; not 0, no CRLF 





9 

DS 

s(DX) a offset of message string 





*» 

9 

9 

(CL) contains (one character) reply if requested* 

054E 




ISMsg 

PROC 

NEAR 


054E 

B4 

09 



MOV 

AH, 9 

;Cal 1 Dos to 

0550 

CD 

£1 



INT 

£1H 

$ output message 

055£ 

80 

F9 00 


CMP 

CL, 0 

j;lf no reply 

0555 

74 

08 



JE 

ISMsg1 

; output CRLF 

0557 

B0 

01 


9 

MOV 

AL, 1 

;Set one character reply 



€ 

f 

f 

f 

< 

I 

I 

€ 

I 

4 

< 

f 

I 

I 

€ 

f 

< 

4 

4 

C 
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0559 

B4 

0C 



MOV 

ftH,0CH ;Go clear buffer 

055B 

CD 

£1 



I NT 

81H f and wait for character 

055D 

8 ft 

C 8 



MOV 

CL,AL 5 Save character 

055F 

80 

FD 

00 

ISMsgl: 

CMP 

CH,0 ;Exit if 

0568 

75 

07 



JNE 

ISMsg 8 5 CRLF supressed 

0564 

Bft 

004 

£ R 


MOV 

DX,OFFSET CRLF* ; Else put out 

0567 

B4 

09 



MOV 

ftH,9 ; the CRLF 

0569 

CD 

ci 1 



INT 

£1H 

056B 

C3 



ISMsg£: 

RET 

;And exit 

056C 




ISMsg 

5 

ENDP 






5 

M 

9 

Tests a 

reply for a given default. Input is 1 





5 


(CL) = Reply character I 





5 


(CH) « default character 1 





5 

Ret urns 

zero if reply is carriage return or equal to default 1 





9 

5 

character in either upper or lower case 5 non—zero otherwise I 

056C 




u 

9 

CHKrpy 

PROC 

NEftR 

056C 

3ft 

0E 

0045 R 

5 

CMP 

CL,CR* ; Ex it if reply 

0570 

74 

06 



JE 

CHKxit ; is carriage return 

057S 

81 

C9 

£ 0 E 0 

5 

OR 

CX,S0S0H 5 Assure both lower case 

0576 

3ft 

E9 



CMP 

CH, CL 

0578 

C3 



CHKxits 

RET 

5 Ret urn to caller 

0579 




5 

CHKrpy 

n 

9 

ENDP 






9 

9 

Forces 

a reply of 9 y 9 , 9 n 9 , or carriage return. Input is 1 





9 


(CL) =s Reply character 1 





9 


(CH) =s 9 y 9 or 9 n 9 , whichever is default I 





* 

9 

Ret urns 

zero if reply is same as CH character; non-zero if not.1 





« 

9 

CR same 

as that given for character in CH 5 no distinction made 1 


; betweeen upper and lower case 

5 . — — 


t 


0579 



CHKyon 

PROC 

NEftR 


0579 

51 


9 

PUSH 

CX 

5 Save input 

057ft 

E 8 

056C R 


CfiLL 

CHKrpy 

5 Check for default 

057D 

74 

cic! 


JZ 

CHKYrid 

;Exit if so 

057F 

80 

FD 6 E 

9 

CMP 

CH, ’ n» 

5 Set opposite 

058£ 

B5 

79 


MOV 

CH, ’y’ 

; condition from 

0584 

74 

0 E 


JE 

CHKgi 

$ default entry 

0586 

B5 

6 E 


MOV 

CH, ’ n’ 


0588 

E 8 

056C R 

CHKgi : 

CALL 

CHKrpy 

5 Check for it 

058B 

74 

1 £ 


JZ 

CHKYpn 

;Got to set end if so 




5 

SHOW 

Beeper,1,no 

5 Beep and get another response 


1 

4 

4 

« 

i 

€ 

< 

« 

I 

I 

4 

4 " 

« 

i 

« 

4 

4 

€ 

4 

€ 

4 
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058D 

BO 

0313 

R 

4* 


MOV 

DX,OFFSET 

Beeper 

0590 

B9 

0001 


4- 


MOV 

CX, 1 


0593 

B5 

01 


4 


MOV 

CH, 1 


0595 

E 8 

054E 

R 

4 


COLL 

ISMsg 


0598 

8 B 

D1 




MOV 

DX, CX 

5 Save response 

0590 

59 





POP 

CX 

5 Set up as origina1 

059B 

80 

CO 




MOV 

CL, DL 

5 into register 

059D 

EB 

DO 




JMP 

CHKyori 

; and go back to process 

059F 

00 

ED 



CHKYpn: 

OR 

CH, CH 

5 Set non-zero indication 

0501 

9C 




CHKynd s 

PUSHF 


;Save condition code 







SHOW 

Blank* 

;Go to next line 

0502 

BO 

0044 

R 

4 


MOV 

DX,OFFSET 

Blank* 

0505 

B9 

0000 


4* 


MOV 

CX, 0 


0508 

E 8 

054E 

R 

4- 


COLL 

ISMsg 


05OB 

9D 




5 

POPF 


;Restore condit ion code 

05OC 

59 





POP 

CX 

; and register 

05OD 

CuF 





RET 


5 Ret urn t o caller 

05AE 





CHKyori 

ENDP 




; Initialization procedure I 

? 

5 * ’"" '* " " ’ " ' 

5 Set segment registers and find the Emulator I 

• -• ■ ~ "* * ' * ' " ~~"* ’*“““ "~~ 


05OE 





EI_INIT 

PROC 

NEAR 

05OE 





5 

Beg in 

LABEL 

NEAR 

05OE 

8 C 

ce 



5 

MOV 

0X,CS ;03.1 segment registers 

05B0 

8 E 

D 8 




MOV 

DS,AX ; are to have the same value 

05B2 

8 E 

C0 




MOV 

ES, OX 







SHOW 

HiThr ;Print start message 

05B4 

BO 

0048 

R 

4 


MOV 

DX,OFFSET HiThr 

05B7 

B9 

0000 


4 


MOV 

CX, 0 

05BO 

E 8 

054E 

R 

4 


COLL 

ISMsg 







MOVEB 

InFCB. NOME, ErnNrne, , 8 5 Emulator Name to FCB 

05BD 

BE 

0517 

R 

4 


MOV 

SI, OFFSET ErnNrne ;OFFSET OF “FROM" LOCATION 

05C0 

BF 

0304 

R 

4 


MOV 

DI, OFFSET InFCB. NOME ;OFFSET OF ■’TO" LOCATION 

05C3 

B9 

0008 


4* 


MOV 

CX, 8 ;LENGTH VOLUE SPECIFIED 

05C6 

F3 

/ 04 


4* 


REP 

MOVSB ;MOVE DATA 

05C8 

B0 

00 




MOV 

OL, 0 ;Set zero attributes 

05CO 

BE 

03OC 

R 



MOV 

SI,OFFSET InFCB.EXT ;Extension to itself 

05CD 

E 8 

05£D 

R 



CALL 

ISQpn »Try to open 

05D0 

75 

0D 




JNE 

Cont ;Continue if ok 


If Emulator not there, output ’not installed’ message and exit 


No PCS 


5 Out put and 


f 
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05D£ 

05D5 

05D8 

05DB 

05DD 


05DF 

05E£ 

05E4 

05E6 

05E9 

05EB 

05ED 

05F1 

05F5 

05F8 

05FC 

0600 


0604 

0606 

0609 

060D 

0610 

0613 

0614 

0616 


0618 
06 IB 
06 IE 

06£1 

06£3 


0S£5 


BA 

007F 

R 

4 


MOV 

DX, OFFSET NoPCS 


B9 

0000 


4 


MOV 

CX, 0 


E8 

054E 

R 

4 


CALL 

LEAVE 

ISMsg 

$ go back to DOS 

B4 

4C 


4 


MOV 

AH,4CH 


CD 

c! 1 


4 

5 

I NT 

£1H 






5 — 

? 

5 

Call Emu1ator to obtain 

j urnp table 1 ocat i on 

BA 

0417 

R 


5 

Corit: 

MOV 

DX, OFFSET InDTA 

;Set DTP to the 

B4 

1A 




MOV 

AH,1AH 

; location of the 

CD 

£1 




I NT 

£1H 

; internal log record 

BA 

039C 

R 


5 

MOV 

DX, OFFSET IriFCB 

5 Go fetch the Device 

B4 

14 




MOV 

AH,14H 

5 Driver jump table 

CD 

£1 




I NT 

£1H 

; location 

SB 

3E 0417 R 


5 

MOV 

DI, WORD PTR InDTA ;Feteh offset, save for 

89 

3E 003E R 



MOV 

DmECT.TckS,DI 

5 TLD call, position 

83 

C7 14 




ADD 

DI, $PosKey 

5 to Key offset table 

89 

3E 00 

38 R 



MOV 

DmECT.DDRH,DI 

5 and save for future 

8 B 

36 0419 R 



MOV 

SI,WORD PTR Ir.DTA+£ ;Fetch and save segment 

89 

36 00 

3A R 


N 

9 

MOV 

DmECT.DDRHS,SI 






9 

M 

9 

9 

Cheek 

to make sure we have the right location and version 

8 E 

C6 



5 

MOV 

ES, SI 

;Fetch segment for ECT 

£6 

SB 3D 



MOV 

DI, ES:CDI3 .KY_EC 

5 Fetch ECT offset 

89 

3E 003C R 



MOV 

DmECT.TckO,DI 

5 and save it 

BE 

0000 

R 



MOV 

SI,OFFSET DmECT. 

Iden 

B9 

0008 




MOV 

CX, 8 

5 Compare 8 characters 

FC 





CLD 


5 in forward direction 

F3. 

/ A6 




REPZ CMPSB 

;Comparison is match 

74 

0D 




JZ 

Cont 1 

5 Continue if ok 





5 

m 

9 

If Emulator versions do 

not match (or read has 





* 

9 

out put 

9 incorrect version 9 message and exit 





9 

SHOW 

NoVer 

5 Out put and 

BA 

0096 

R 

4 


MOV 

DX,OFFSET NoVer 


B9 

0000 


4 


MOV 

CX, 0 


E8 

054E 

R 

4 


CALL. 

LEAVE 

ISMsg 

; go back to DOS 

B4 

4C 


4 


MOV 

AH,4CH 


CD 

£1 


4 

9 

I NT 

£1H 






9 

* 

9 

9 ‘ ~~ 

Fetch 

ECT data and store 

it into save areas and FCB 

SB 

36 003C R 


M 

9 

Cont1: 

MOV 

SI,DmECT.TckO 

5 Recover ECT offset 
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06£9 

86 s 

0A 44 

00 



MOV 

AL,ES:ESI 3. EC„DAT 


$Get drive letter 

06£D 

A£ 

03C0 

R 




MOV 

InDSA,AL 


;Store letter in save area 

0630 

A£ 

040B 

R 




MOV 

InDIR, AL 


3 and new directory area 

0633 

£6: 

0A - 

4-4 

09 



MOV 

AL,ES:ESI3. EC Drv 


5 Move drive number 

0637 

A£ 

03A3 

R 




MOV 

InFCB.DRV, AL 


; into file contro1 block 

063A 

IE 





9 

PUSH 

DS 


; Restore ES to 

063B 

07 






POP 

ES 


; this segment 

063C 

0E 

IE 003P 

1 R 



MOV 

DS,DrnECT. DDRHS 


;Set DS to ECT segment 

0640 

0D 

74 li 

S 




LEA 

SI, ESI3.Dir 


5 Posit ion to and fetch 








MOVEB 

InDIRl,,,$*DIR 


5 directory string 

0643 

BF 

040E 

R 


4* 


MOV 

DI,OFFSET InDIRl 

;OFFSET OF "TO" LOCATION 

0646 

B9 

0000 



4* 


MOV 

CX,*$DIR 

;LENGTH VALUE SPECIFIED 

0649 

F3/ 

' A4 



"1“ 


REP MOVSB 

; MOVE 

DATA 








SCANB 

InDIRl, , *$DIR, ’ ’ 


;Find first blank 

064B 

B0 

£0 



4* 


MOV 

AL,» » ;PUT THE 

BYTE 

TO SEARCH FOR IN AL 

064D 

BF 

040E 

R 


4* 


MOV 

DI,OFFSET InDIRl ; 

OFFSET OF "WHERE" LOCATION 

0650 

B9 

0000 



4* 


MOV 

CX,$$DIR 

;LENGTH TO SEARCH 

0653 

F£/ 

AE 



4* 


REPNZ 

SCASB 

; SCAN 

FOR SPECIFIED BYTE 

0655 

75 

01 



4* 


JNZ 

? ?0000 

•IF NOT FOUND 

0657 

4F 




4- 


DEC 

DI 

; BACK 

UP ONE 

0658 

90 




4- 

??0000 2 

NOP 




0659 

86 s 

C6 ! 

35 

00 



MOV 

BYTE PTR ES:EDI3,0 


;Put a zero in its place 

065D 

86 : 

0B , 

36 

003C R 


9 

MOV 

SI,ES:DrnECT. TckO 


5 Recover ECT offset and 

066c! 

0D 

74 1A 




LEA 

SI, ESI3. Nam 


; position to file name 








MOVEB 

InFCB.NAME, , , $*NAM 


; Move name to FCB 

0665 

BF 

03A4 

R 


4- 


MOV 

DI,OFFSET InFCB.NAME 

: OFFSET OF "TO" LOCATION 

0660 

B9 

0000 



4- 


MOV 

CX,*$NAM 

;LENGTH VALUE SPECIFIED 

066B 

F3/ 

’ A4 



4- 

9 

REP MOVSB 

; MOVE 

DATA 







* 

5 

5 

Save current directory and 

change to that of Emulator 

066D 

06 





5 

PUSH 

ES 


§ Rest-ore DS to 

066E 

IF 






POP 

DS 


5 this segment 

066F 

BE 

03CB 

R 




MOV 

SI, OFFSET Ir.DSAl 


5 Offset to Save area 

067£ 

B4 

47 





MOV 

AH,47H 


5 Request directory path 

0674 

0A 

16 03A3 R 



MOV 

DL,InFCB.DRV 


5 of Emulator drive 

0670 

CD 

81 





I NT 

81H 



067A 

BA 

040B 

R 



5 

MOV 

DX,OFFSET InDIR 


;Change to 

067D 

B4 

3B 





MOV 

AH,3BH 


; Emulator directory 

067F 

CD 

£1 





I NT 

£1H 



0601 

73 

0D 





JNC 

Cont8 ;Continue if change ok 







5 

SHOW 

NoDIR ;Send message 

0603 

BA 

00CA 

R 


4- 


MOV 

DX,OFFSET NoDIR 



0606 

B9 

0000 



4* 


MOV 

CX, 0 



0609 

E0 

054E 

R 


4* 


CALL 

ISMsg 










LEAVE 

u 

9 

and < 

exit 

060C 

B4 

4C 



4- 


MOV 

AH,4CH 



060E 

CD 

£1 



4- 


I NT 

£1H 






The IBM Personal Computer MACRO Assembler 1£—£8-83 


PAGE 


1-13 





M 

9 

5 

Try to open user area file and 

read the version record 

0690 

8 E 

06 003A R 

* 

9 

Cont£: 

MOV 

ES, DrnECT. DDRHS 

5 Set ES to Emulator segment 

0694 

8 B 

3E 003C R 


MOV 

DI, DmECT. TckO 

5 Recover ECT offset 

0698 

£ 6 : 

i 8 A 45 £C 


MOV 

AL, ES;CDI3.EC_AtrU 

;Fetch user attributes 

069C 

BE 

05£1 R 


MOV 

SI, OFFSET InEXT 

;Extension will say USR 

069F 

E 8 

05£D R 


CALL 

ISOpn 

•Try to open file 

06A£ 

75 

17 


JNE 

Cont 3 

5 Continue if open is ok 




5 

• 

9 

Exit 

if the user' or any of the 

system files cannot be opened 

06A4 



9 

Nof iles 

SHOW 

NoF 1 e 

-Print message 

06A4 

BA 

00E9 R 

4 

MOV 

DX, OFFSET NoFle 


06A7 

B9 

0000 

4 

MOV 

CX, 0 


06AA 

E 8 

054E R 

4 

CALL 

ISMsg 


06AD 

E 8 

0546 R 

CmX it s 

CALL 

ISC Is 

5 Close last file 

06B0 

BA 

03C8 R 


MOV 

DX,OFFSET InDSA 

5 Change back to 

06B3 

B4 

3B 


MOV 

AH,3BH 

5 previous directory 

06B5 

CD 

£1 


I NT 

£1H 






LEAVE 


5 and exit 

06B7 

B4 

4C 

4 

MOV 

AH,4CH 


06B9 

CD 

O 1 

C. 1 

4 

I NT 

£1H 


06BB 

BA 

039C R 

Cont3: 

MOV 

DX,OFFSET InFCB 

5 Fetch FCB offset 

06BE 

C7 

06 03C4 R 00£ 

0 

MOV 

InFCB. LRN,PVerRec 

;Set record number 

06C4 

B4 

£1 


MOV 

AH,£1H 

5 Try to read in 

06C6 

CD 

£1 


I NT 

£ 1 H 

? the record 

06C8 

3C 

00 


CMP 

AL, 0 

5 Treat as uninitialized 

06CA 

75 

££ 


JNE 

Cont 4 

5 if read fails 

06CC 

Al 

045B R 

9 

MOV 

AX,WORD PTR InDTA+PFrmDte ;Fetch version date 

06CF 

86 

C4 


XCHG 

AL, AH 

;Pdjust for order 

06D1 

3B 

06 05IF R 


CMP 

AX,EmVers 

5 Treat as uninitialized 

06D5 

75 

17 

n 

9 

JNE 

Cont 4 

5 if dates do not compare 




9 

« 

9 

9 

Move 

Server name from user record to the ECT 

06D7 

SB 

3E 003C R 

N 

9 

MOV 

DI,DmECT.TckO 

;Fetch ECT location 

06DB 

83 

Lr f C.C. 


ADD 

DI,OFFSET Serv 

;Posit ion to server 

06DE 

BE 

0012 


MOV 

SI, PFrrnSrv 

;Set source as 4 

06E1 

81 

C 6 0417 R 


ADD 

SI,OFFSET InDTA 

5 user record location 

06E5 

IE 


— 

-PUSH- 

——D-S- 

5 Set source segment 

06E6 

06 


— 

—PUSH- 

-ES - 

06E7 

IF 


— 

-POP — 

-&‘ 

5 to be Emulator 





MOVES 

' 9 9 9 

5 Fetch the name 

06E8 

B9 

000A 

4 

MOV 

CX,10 ;LENGTH VALUE SPECIFIED 

06EB 

F3/ A4 

4 

REP 

MOVSB 5 MOVE DATA 

06ED 

IF 



POP 

_Sxl 

% Restore s^meftt register C 




9 

mt , ir , 1t — T - TWT1 

^ ^ 

! 

i 

1 

! 

i 

i 

1 

1 

i 

! 

i 

i 

i 

I 

! 

i 

1 

1 

i 

1 

! 

! 

! 

1 

I 

1 

1 

f 

1 

1 


Now try to open the other Emulator files 
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06EE 

E 8 

0546 R 

5 

5 

Cent4: 

CALL 

I SC Is 

;Close user file 

06F1 

8 E 

06 003A R 


MOV 

ES,DrnECT. DDRHS 

;Set ES to Emulator segment 

06F5 

8 B 

3E 003C R 


MOV 

DI, DrnECT. TckO 

;Recover offset of ECT 

06F9 

28 

: 8 A 45 2D 


MOV 

AL,ES:CDn.EC_.AtrS 

5 Fetch system attributes 

06FD 

E 8 

052D R 


Call 

ISOpn 

5 Try to open 

0700 

74 

A2 


JE 

Hof He 

;Exit if failure 

0702 

E 8 

0546 R 


CALL 

I SC Is 

5 Close the file 

0705 

26 

: 8 A 45 2D 


MOV 

AL,ES:CDID . EC_At rS 

;Do same for 

0709 

E 8 

052D R 


CALL 

ISOpn 

; second system file 

070C 

74 

96 


JE 

No f i 1 e 


070E 

E 8 

0546 R 


CALL 

ISCls 


0711 

26 

: 8 A 45 2E 

5 

MOV 

AL,ES:CDI3.EC_AtrL 

5 Now try for 

0715 

E 8 

052D R 


CALL 

ISOpn 

; log file 

0718 

75 

60 


JNE 

Cont 5 

;Continue if present 


; If log file not present create one and write its records 








9 


M* *— —* *4*9* ****** *— ***** *— —^ ^ ~~ 

~- — —--—-**• — — -„-~* ..... — .*♦* •— 

071A 

BA 

039C R 




$ 

MOV 

DX,OFFSET InFCB 

5 Point to FCB 

07 ID 

B4 

16 





MOV 

AH,16H 

5 Try to create 

07 IF 

CD 

21 





I NT 

21H 

5 the log file 

0721 

3C 

FF 





CMP 

AL,0FFH 

5 If the create fails, 

0723 

75 

0C 





JNE 

Co 1 og 

5 send message, then conti 








SHOW 

NoLogf 


0725 

BA 

010F R 



4 


MOV 

DX,OFFSET NoLogf 


0728 

B9 

0000 



4* 


MOV 

cx, 0 


072B 

E 8 

054E R 



4* 


CALL 

ISMsg 


072E 

EB 

4A 90 





JMP 

Cont 5 


0731 

BA 

0497 R 




9 

Colog s 

MOV 

DX,OFFSET InLogrn 

5 Bet DTP* to location 

0734 

B4 

1A 





MOV 

AH,1AH 

5 of log recor'd area 

0736 

CD 

21 





I NT 

21 H 


0738 

C 6 

06 03C3 

R 

00 


5 

MOV 

InFCB. CUR, 0 

5 Set record positions 

073D 

C7 

06 03C4 

R 

0000 



MOV 

InFCB.LRN,0 

5 to zero 

0743 

BA 

039C R 





MOV 

DX,OFFSET InFCB 

;Set FCB location 

0746 

B4 

15 





MOV 

AH,15H 

5 Go write 

0748 

CD 

d 1 





I NT 

21H 

5 first record 

074A 

IE 





? 

PUSH 

DS 

5 Restore ES to 

074B 

07 






POP 

ES 

5 current segment 








FILLIT 

InLogm,,126,’ ’ 

5 Now fill with blanks 

074C 

BF 

0497 R 



4* 


MOV 

DI,OFFSET InLogm ; 

OFFSET OF “WHERE n LOCATION 

074F 

B9 

007E 



4* 


MOV 

CX, 126 5 LENGTH 

TO REPLICATE 

0752 

B0 

20 



4* 


MOV 

AL,* ’ :BYTE TO 

BE REPLICATED 

0754 

F3/ AA 



HI- 


REP STOSB 

% REPLICATE 

0756 

8E 

06 003A 

R 



5 

MOV 

ES,DrnECT.DDRHS 

5 Set ES back to Emulator 

075A 

SB 

3E 003C 

R 




MOV 

DI,DrnECT.TckO 

5 and DI pointing to ECT 

075E 

26: 

SB 4D 0E 




MOV 

CX, ES: CDi:t. Max 

5 Fetch number of records 





The IBM Personal Computer MACRO Assembler l£-£8-83 


PAGE 


1-15 


076£ 

B4 

15 

Co1 g 1 ; 

MOV 

AH,15H 

5 Go writ e 

0764 

CD 

£1 


INT 

£1H 

5 a record 

0766 

3C 

00 


CMP 

AL, 0 

5 Quit if disk 

0768 

75 

0£ 


JNE 

Col g£ 

; is full or all 

076A 

E£ 

F6 


LOOP 

Co 1 g 1 

; records written 

076C 

83 

F9 00 

5 

Colg£s 

CMP 

cx, 0 

;Write message 

076F 

74 

09 


JE 

Cont 5 

; if disk full 





SHOW 

IncLog 


0771 

BA 

01£B R 

4* 

MOV 

DX,OFFSET IncLog 


0774 

B9 

0000 

4- 

MOV 

cx, 0 


0777 

ES 

054E R 

4- 

9 

CALL 

ISMsg 





5 

5 

i 

Check 

for automatic response file and use it if present 

077A 

90 


Cont 5: 

5 

NOP 

5 To be 

coded later 




• . 

m 

9 

9 * 

Set conditions of transporter 

board usage 

077B 

8 B 

3E 003C R 

m 

9 

MOV 

DI, DrnECT. TckO 

;Fetch ECT location 

077F 

£6 

C6 45 £F 00 


MOV 

ES:EDI 3.EC TBI,0 

5 and turn off all usage flags 

0784 

C6 

06 00£F R 00 


MOV 

DrnECT.EC_TBI,0 

; in Emulator and here 




9 

SHOW 

TBint1,1,no 

5 Prompt for interrupt installed 

0789 

BA 

019F R 

4 

MOV 

DX,OFFSET TBintI 


078C 

B9 

0001 

4* 

MOV 

CX, 1 


07SF 

B5 

01 

4* 

MOV 

CH, 1 


0791 

E8 

054E R 

4* 

CALL 

ISMsg 


0794 

B5 

79 


MOV 

CH, ’y’ 

;Check for default 

0796 

E8 

0579 R 


CALL 

CHKyon 

5 yes reply 

0799 

75 

IF 


JNZ 

Cont 6 

5 Test for timer opn if not 

079B 

£61 

: 80 4D £F 80 


OR 

ES:CDI3. EC_TBI,STBintI 

? Turn on flag if so 




9 

SHOW 

TBrenb,1,no 

5 Prompt for interrupt usage 

07A0 

BA 

01DD R 

4* 

MOV 

DX,OFFSET TBrenb 


07A3 

B9 

0001 

4- 

MOV 

CX, 1 


07A6 

B5 

01 

4* 

MOV 

CH, 1 


07A8 

E8 

054E R 

4* 

CALL 

ISMsg 


07AB 

B5 

79 


MOV 

CH, » y» 

;Check for default 

07AD 

E8 

0579 R 


CALL 

CHKyon 

5 yes reply 

07B0 

75 

08 


JNZ 

Cont6 

5 Test for timer opn if not 

07B£ 

£6 

: 80 4D £F 40 


OR 

ES:EDI 3.EC_TBI,^TBrenb 

51 f so, t urn on flag 

07B7 

EB 

18 90 


JMP 

Cont 7 

; and go to display question 

07BA 



9 

Cont6: 

SHOW 

TBrtek, 1, no 

§ Prompt for timer tick usage 

07BA 

BA 

0£18 R 

4* 

MOV 

DX,OFFSET TBrtck 


07BD 

B9 

0001 

4- 

MOV 

CX, 1 


07C0 

B5 

01 

4* 

MOV 

CH, 1 


07C£ 

E8 

054E R 

4- 

CALL 

ISMsg 


07C5 

B5 

6 E 


MOV 

CH, ’ n* 

5 Check for default 

07C7 

ES 

0579 R 


CALL 

CHKyon 

^ no reply 
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07CA 

74 

05 


JZ 

Cont7 ;Display question if so 

07CC 

00 

0E 00£F R £0 

5 

OR 

DmECT.EC_TBI,*TBrtck ;Set to turn on flag if not 




5 

m 

9 

5 

Prompt 

for error messages displayed at console 

07D1 

£6 

C 6 45 0A 01 

M 

9 

Cent *7 s 

MOV 

ES:CDI3-EC_Flg,*NOCONS ;Assume no console output 




9 

SHOW 

WhERRl,l,no ;Prompt for error message at console 

07D6 

BA 

0£5S R 

4 - 

MOV 

DX,OFFSET WhERRl 

07D9 

B9 

0001 

+ 

MOV 

CX, 1 

07DC 

B5 

01 


MOV 

CH, 1 

07DE 

E0 

054E R 

4 * 

CALL 

ISMsg 

07E1 

B5 

6 E 


MOV 

CH, ’ n’ ;Check for default 

07E3 

E0 

0579 R 


CALL 

CHKyon ; no reply 

07E6 

74 

05 


JZ 

Cont 0 

07E0 

£6 

: C 6 45 0A 00 


MOV 

ES: CDI II . EC__F1 g, *Cons ;Reset if not 

07ED 

E0 

0546 R 

9 

Cont 8 : 

CALL 

ISCIs 5 Close any open file 

07F0 

BA 

03C0 R 


MOV 

DX, OFFSET InDSA 5 Char.ge back to 

07F3 

B4 

3B 


MOV 

AH,3BH ; previous directory 

07F5 

CD 

£1 


INT 

£1H 




IF TRACE* 



Check for trace request and set flag accordingly 


07F7 

£ 6 : 

C 6 45 

0 B 

01 


• 

9 

MOV 

ES:CDI3 . Tree,*False ;Assume trace off 








SHOW 

WhTrce,l,no ;Display message and get reply 

07FC 

BA 

0319 R 



4- 


MOV 

DX,OFFSET WhTrce 

07FF 

B9 

0001 



4- 


MOV 

CX, 1 

000 £ 

B5 

01 



4* 


MOV 

CH, 1 

0004 

E0 

054E R 



4- 


CALL 

ISMsg 

0007 

B5 

6 E 





MOV 

CH,’n’ ;Check for a 

0009 

E0 

0579 R 





CALL 

CHKyon ; default no 

000C 

74 

33 





JZ 

Cont 9 

000 E 

£ 6 : 

! C 6 45 

0B 

00 



MOV 

ESsCDI II . Tree,*True ;Turn trace on 







9 

SHOW 

WhTdsk,l,no ;Display disk message and get reply 

0013 

BA 

033F R 



4* 


MOV 

DX,OFFSET WhTdsk 

0016 

B9 

0001 



4* 


MOV 

CX, 1 

0019 

B5 

01 



4* 


MOV 

CH, 1 

00 IB 

E0 

054E R 



4* 


CALL 

ISMsg 

00 IE 

B5 

79 





MOV 

CH, *y’ ; Check for a 

00£0 

E0 

0579 R 





CALL 

CHKyon ; default yes 

00£3 

75 

05 





JNZ 

ContSa iTurn on disk trace flag if so 

0085 

00 

0E 00£F R 

01 



OR 

DrnECT. EC__TBI, *TRCdsk 

00£A 






5 

Cont0as 

SHOW 

WhTcon,1,no ;Display console message and get reply 

008A 

BA 

036C R 



4* 


MOV 

DX,OFFSET WhTcon 

008D 

B9 

0001 



4 - 


MOV 

CX, 1 

0030 

B5 

01 



4 - 


MOV 

CH, 1 

003£ 

E 8 

054E R 



4 - 


CALL 

ISMsg 
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0835 

B5 6E 


MOV 

CH, ’ n’ ;Check for a 

0837 

E8 0579 R 


CALL 

CHKyon ; default no 

083A 

74 05 


JZ 

Cent9 ;Turn 

on console trace flag if not 

083C 

0841 

80 0E 00£F R 0£ 

END IF 

5 

5 

? 

5 

M 

* 

Corit 9: 

OR DrnECT. EC_TBI, STRCcon 

Save interrupt vectors and set 

FIV £1H 

intercepts for Emulator, timer, DOS 

;Fetch DOS intercept vector 

0841 

06 

4 

PUSH 

ES 


0842 

B4 35 

4 

MOV 

AH, 35H 


0844 

B0 £1 

4 

MOV 

AL, £1H 


0846 

CD £1 

+ 

INT 

£1H 


0848 

8 C C0 

•4 

MOV 

la>y €$, es 


084A 

07 

4 

POP 

ES 


084B 

£6: 89 5D 34 


MOV 

ES: IDIII. DOSdkO, BX 

5 and save in Emulator EOT 

084F 

0853 

26: 89 55 36 

87 D3 


MOV 

XCHG 

ES:CDI3.DOSdkS,DX 

DX, BX 

5 Now set up the 

0855 

IE 

4 

SIV 

PUSH 

,*CalIDS 

DS 

; software equivalent 

0856 

8 E DB 

4* 

MOV 

DS, BX 


0858 

B4 £5 

4 

MOV 

AH, £5H 


085A 

B0 66 

4 

MOV 

AL,$CalIDS 


085C 

CD £1 

4* 

INT 

£1H 


085E 

IF 

4 

POP 

DS 


085F 

06 

5 

4 

FIV 

PUSH 

*CallTK 

ES 

;Fetch timer intercept vector 

0860 

B4 35 

4 

MOV 

AH,35H 


0862 

B0 1C 

4 

MOV 

AL,*CallTK 


0864 

CD £1 

4 

INT 

£1H 


0866 

8 C C0 

4 

MOV 

TfoT®,ES 


0868 

07 

4 

POP 

ES 


0869 

£6: 89 5D 3C 


MOV 

ES:CDI3.TckO, BX 

; and save in Emulator EOT 

086D 

0871 

£6: 89 55 3E 

87 D3 


MOV 

XCHG 

ES:EDI3. TekS, DX 

DX, BX 

;Now set up the 

0873 

IE 

4 

SIV 

PUSH 

,$Cal1TM 

DS 

; software call 

0874 

8 E DB 

4 

MOV 

DS, BX 


0876 

B4 £5 

4 

MOV 

AH,£5H 


0878 

B0 67 

4 

MOV 

AL,*CallTM 


087A 

CD £1 

4 

INT 

£1H 


087C 

IF 

4 

POP 

DS 


087D 

8 B IE 0038 R 

5 

MOV 

BX,DrnECT.DDRH 

;Offset to keys table 

0881 

£6: 8B 57 04 


MOV 

DX, ES:CBX3.KY INT 

$Fetch offset to int driver 

0885 

IE 

4 

SIV 

PUSH 

DrnECT.DDRHS, *CallEM 

DS 

;Set Emulator interrupt vector 

0886 

8 B IE 003A R 

4 

MOV 

BX,DrnECT. DDRHS 


088A 

8 E DB 

4 

MOV 

DS, BX 


088C 

B4 £5 

4 

MOV 

AH,£5H 


088E 

B0 0A 

4 

MOV 

AL,$Cal1EM 


0890 

CD £1 

4 

INT 

21H 
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0892 

0893 

0897 

0Q9B 

089C 

08A0 

0SA2 

08A4 

B8A6 

08A8 

0SA9 

08AC 

08B0 

08B2 

08B4 

08B8 

08B9 

08BD 

08BF 

08C1 

08C3 

08C5 


08C6 

08CA 

08CB 

08CE 

0SD1 

08D5 

08D6 
08D9 
08 DC 


08DF 

08E4 

08E6 

08E7 

08E9 


IF 



4* 

POP 

DS 

8B 

IE 0038 

R 

5 

MOV 

BX, DmECT.DDRH 

26: 

SB 57 i 

06 


MOV 

DX,ES:CBX3.KY DTM 





SIV 

DmECT. DDRHS, *Cal 1TI 

IE 



4* 

PUSH 

DS 

8B 

IE 003A 

R 

4* 

MOV 

BX,DmECT.DDRHS 

8E 

DB 


4. 

MOV 

DS, BX 

B4 

25 


4* 

MOV 

AH,25H 

B0 

1C 


4* 

MOV 

AL,$Cal1TK 

CD 

21 


4* 

INT 

21H 

IF 



4* 

POP 

DS 

A0 

002F R 


5 

MOV 

AL,DmECT.EC_TBI 

SB 

IE 0038 

R 


MOV 

BX, DraECX-DDRH 

A8 

C0 



TEST 

AL,^TBint)+$TBrenb 

74 

12 



JZ 

Cont10 

26: 

8B 57 i 

08 


MOV 

DX,ES:CBX3.KY_DOS 





T^SIV 

DrnECT. DDRHS, "21H — 

IE 




PUSH 

DS 

8B 

IE 003A 

R 

s' 4* 

MOV 

BX,DmECT.DDRHS 

8E 

DB 


/ 4- 

MOV 

DS, BX 

B4 

oer 

iTlvJ 


/ 4- 

MOV 

AH, 25H 

B0 

21 


I 4* 

MOV 

AL,21H 

CD 

21 


V 4* 

INT 

21H 

IF 




POP 

DS______ 


26: 08 45 2F 
53 

A1 003E R 
A3 0038 R 

FF IE 0038 R 
5E 

BA 0294 R 
B9 0000 
E8 054E R 


F6 06 002F R C0 
74 05 
FB 

B4 4C 
CD 21 

26 : SE< 5C 02 


5 Offset to Keys table 
;Offset to timer intercept 
;Set timer intercept vector 






;Fetch run flags ^_ 

5 Refresh keys offset 

If transporter is 
to run enabled, 


ofL Al y 6: 


set DOS intercept 



CAS1 1 
Mo\/ 


9 

5 
5 

Cont10s OR 

PUSH 

MOV 

MOV 


Request Transporter Logical Device initialization 




ES:EDI 3.EC_TBI,AL 
BX 

AX, DrnECT. TckS 
DmECT.DDRH, AX 


Flags to Emulator 
Save offset of keys table 
Fetch offset to 
jump table 




+ 

+ 

+ 


CALL DWORD PTR DmECT.DDRH 

POP SI 

SHOW InDone 

MOV DX,OFFSET InDone 

MOV CX,0 

CALL ISMsg 


;Call TLD start (cold 
;Retrieve keys offset 
;Print end message 


warm) 


TEST 
( JZ 
V_ STI 
LEAVE 
MOV 
I NT 

Cont11: MOV 


Set transporter in motion by itself or through external driver 


)mECJ7EC. 
11 


AH, 4CH 


/TBI, *TBwt&?+*TBrenb 

;Go drive if no interrupts 
;Assure interrupts on 
5 and exit 


21H 

BX,ES:CSI3.KY_EXT 


08EB 


;Set up call 
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08EF 

89 

IE 0038 R 



MOV 

DrnECT. DDRH, BX 

5 to Driver 

08F3 




5 

BhowL s 

SHOW 

GoDrv, 1 

5 Request start or sto| 

08F3 

BA 

0£BE R 

4* 


MOV 

DX,OFFSET GoDrv 


08F6 

B9 

0001 

4- 


MOV 

CX, 1 


08F9 

E8 

054E R 

4- 


CALL 

ISMsg 


08FC 

80 

C9 £0 



OR 

CL,£0H 

;Stop is either a cap 

08FF 

80 

F9 71 



CMP 

CL, ’ q’ 

5 or lower case ’ q’ 

090S 

75 

04 



JNE 

Corit 1 £ 







LEAVE 


5 Exit on stop 

0904 

B4 

4C 

4* 


MOV 

AH,4CH 


0906 

CD 

£1 

4* 


INT 

£ 1H 


0908 




5 

Cent 1£s 

SHOW 

NxDRV 

;Issue stop message 

0908 

BA 

0£EE R 

4- 


MOV 

DX,OFFSET NxDRV 


090B 

B9 

0000 

•4 


MOV 

CX, 0 


090E 

E8 

054E R 

4- 


CALL 

ISMsg 


0911 

FF 

IE 0038 R 


DCalEMs 

CALL DWORD PTR DrnECT. DDRH 

5 Call the Emulator 

0915 

B0 

FF 


5 

MOV 1>L (6D, 0FFH 

;Test for character 

0917 

B4 

06 



MOV 

AH, 6 

; input at keyboard 

0919 

CD 

£1 



INT 

£1H 


091B 

75 

F4 



(gfNZ^J^ 

DCalEM 

5 Call Emulator if not 

091D 

EB 

D4 



JMP 

ShowL 

5 If so, go ask again 

09 IF 




EI_INIT 

ENDP 



091F 




5 

PCS 

ENDS 



0000 




5 

STACK 

SEGMENT 

PARA STACK ’STACK’ 


0000 

0£00 i 



DB 

51£ DUP(0FFH) 




FF 







3 


*fyt> V CJL %r~ 


mam 


STACK 


ENDS 
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Symbol 


Macros s 


N a m e Length 

COMPARE. 000F 

ENTER. .. 000D 

EXIT... 0005 

EYE. 0001 

FILLIT ............. 0011 

FIV. ... 0002 

SEN_START... 0001 

LEAVE. ........ . 0001 

LOG. .. 0005 

MOVES. .. 000F 

MOVEONE. ..... . 000E 

RESTORE. 0001 

SCANB. ...... . 0012 

SELEXIT. 0002 

SELREST. ... 000D 

SELSAVE. ... 0018 

SHOW .. 0004 

SIV. .. 0003 

START. ........ . 0019 

STATUS .. 0001 

TIME ......... . 0001 

TRACE. .. 0009 


Structures and records: 


Name Width # fields 

Shift Width Mask 

DACB.. 02EB 000F 

DA_EI.. 0000 

DA_EC... 0001 

DA„FLG ..... . 0002 

OPN. 0003 

DA_CDSK.. . 0004 

DSA. . 0007 

DTA. 0047 

VSA. 004B 

VDT. .............. 004F 

DDA. .. 006B 

ECT. . ... 0040 001A 

IDEN .. 0000 

EC_DAT. 0008 

ECJDRV .. 0009 

EC_FLG .. 000A 

TRCE .. 000B 

COLD ... 000C 

EC_TRM ..... . 000D 

MAX. .. 000E 

NEXT .. 0010 

DIR. ... 0012 

NAM. 001A 

SERV .. 0022 


Initial 






































0002 


Symbols—£ 


« 


< 

f 

€ 

f 

« 

I 

f 

I 

I 

« 

f 

« 

< 

i 

< 

1 

€ 

< 

t 

€ 

f 
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CDE. 

I_R_LEN.. . 

Segments and groups: 

Name 

PCS. 

STACK. . . 

Symbols: 

Name 

BEEPER . 

BEGIN. 

BLANKS . 

CHKG1... 

CHKRPY . 

CHKXIT ........ 

CHKYND ........ 

CHKYON ........ 

CHKYPN ........ 

CIS. 

CMXIT. ... . 

C0LG1. ........ 

L/0L-3c> k ........ 

COLOG. ........ 

CONT ......... 

CONTI. ........ 

CONT10 ... . 

CONTI 1 ........ 

CONT lc!. . . . . . . . 

CONTE. ... . 

C0NT3.. 

C0NT4. ... . 

C0NT5.. 

C0NT6.. 

C0NT7. ... . 

C0NT8.. 

CONTSA ........ 

C0NT9. ........ 

CRS. . ... 

CRLFS.. . 

CRLFES ........ 

DCALEM ........ 

DEBUGS ... . 

DMS.. 

DMECT. ........ 

DRS. ... . 

DTA BGN. . 

EIS. . ... 

El INIT. ....... 

EMNME. ........ 

EMVERS ........ 


0000 

0001 


Size 

align 

combine 

091F 

PARA 

NONE 

0 E00 

PARA 

STACK 


Type 

Va 1 ue 

Attr 

L 

BYTE 

0313 

PCS 

L 

NEAR 

05AE 

PCS 

L 

BYTE 

0044 

PCS 

L 

NEAR 

0588 

PCS 

N 

PROC 

056C 

PCS 

L 

NEAR 

0578 

PCS 

L 

NEAR 

05A1 

PCS 

N 

PROC 

0579 

PCS 

L 

NEAR 

059F 

PCS 

Number 

0000 


L 

NEAR 

06AD 

PCS 

L 

NEAR 

076E 

PCS 

L 

NEAR 

07GC 

PCS 

L 

NEAR 

0731 

PCS 

L 

NEAR 

05DF 

PCS 

L 

NEAR 

06E5 

PCS 

L 

NEAR 

08C6 

PCS 

L. 

NEAR 

08EB 

PCS 

L 

NEAR 

0908 

PCS 

L 

NEAR 

0690 

PCS 

L 

NEAR 

06BB 

PCS 

L 

NEAR 

06EE 

PCS 

L 

NEAR 

077A 

PCS 

L 

NEAR 

07BA 

PCS 

L 

NEAR 

07D1 

PCS 

L 

NEAR 

07ED 

PCS 

L 

NEAR 

08SA 

PCS 

L 

NEAR 

0841 

PCS 

L 

BYTE 

0045 

PCS 

L 

WORD 

004E 

PCS 

L 

WORD 

0040 

PCS 

L. 

NEAR 

0911 

PCS 

Number 

0000 


Number 

0000 


L 

0040 

0000 

PCS 

Number 

0000 


E 

BYTE 

0000 

PCS 

Number 

0001 


N 

PROC 

05AE 

PCS 

L 

BYTE 

0517 

PCS 

L 

WORD 

05 IF 

PCS 


Symbols~3 

class 

’STACK’ 

Length =000D 
Length =0035 


Length =0371 
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EYE* ... 

GODRV. . . . 

HITHR.... 

INCLOG . . 

INDIR. . .. 

INDIR1 . 

INDONE .. . . . 

INDSA. 

INDSA1 ............. 

INDTA. ............. 

INEXT... 

IMFCB... 

INLQGM . 

IS*. .............. 

ISCLS. . 

ISMSG. .. . 

ISMSG1. . 

ISMSG£ . . . 

ISOPN. ... . 

LC*... 

NA*... 

NOCOM* .... . 

NODIR.. 

NODTE.. . . . 

NOFILE ... . . . . 

NOFLE. .... . 

NOLOGF . . 

NOPCS. .. . . . 

NOSRD.. 

MOVER.. . . 

NXDRV.. 

PI*. 

SHOWL. .. . 

SM*. ......... 

TBINTA*. . . . 

TBINTI... 

TBRENB . 

TBRTCK ..... . . . 

TL*. .... . 

TRACE* ... . 

WHERR1 . 

WHTCON.. . . . . 

WHTDSK . 

WHTRCE .... . 

**DIR. . . 

**EXT... . . . 

**LOG. 

**NAM. ... . 

**NAME .. . . . . 

**NEXT . 

**SERV ...... . 

**SY1.. . . . 

**SY£. ............. 

**USR. ........ . 

*198£. ............. 


Number 

0000 



L BYTE 

0£BE 

PCS 


L BYTE 

0046 

PCS 


L BYTE 

01EB 

PCS 


L BYTE 

040B 

PCS 


L BYTE 

040E 

PCS 

Length =0008 

L BYTE 

0£94 

PCS 


L BYTE 

03C8 

PCS 


L BYTE 

03CB 

PCS 

Length =0040 

L BYTE 

0417 

PCS 

Length =0080 

L BYTE 

05£1 

PCS 


L 00£C 

039C 

PCS 


L WORD 

0497 

PCS 


Number 

0000 



N PROC 

0546 

PCS 

Length =0008 

N PROC 

054E 

PCS 

Length =001E 

L NEAR 

055F 

PCS 


L NEAR 

056B 

PCS 


N PROC 

05£D 

PCS 

Length =0019 

Number 

0000 



Number 

0000 



Number 

0000 



L BYTE 

00CA 

PCS 


L BYTE 

016A 

PCS 


L NEAR 

06A4 

PCS 


L BYTE 

00E9 

PCS 


L BYTE 

010F 

PCS 


L BYTE 

007F 

PCS 


L BYTE 

014E 

PCS 


L BYTE 

0096 

PCS 


L BYTE 

0£EE 

PCS 


Number 

0000 



L NEAR 

08F3 

PCS 


Number 

0000 



Number 

0001 



L BYTE 

019F 

PCS 


L BYTE 

01DD 

PCS 


L BYTE 

0£18 

PCS 


Number 

0000 



Number 

0001 



L BYTE 

0£56 

PCS 


L BYTE 

036C 

PCS 


L BYTE 

033F 

PCS 


L BYTE 

0319 

PCS 


Number 

0008 



Number 

0003 



Number 

0003 



Number 

0008 



Number 

0008 



Number 

0004 



Number 

000A 



Number 

0003 



Number 

0003 



Number 

0003 



Number 

07BE 

















































The IBM Personal Computer MACRO Assembler l£-£8~83 


PAGE 


Symbol 


^ARCHIVE . Number 

$ATRNRM. . ...... Number 

$BEEP... Number 

$CALLDS... Number 

$CALLEM. ...... . Number 

$CALL.TK. . Number 

$CALLTM. . Number 

$CONS. ....... . Alias 

UiDISKERR . Number 

fcERRSYl. ...... . Number 

$ERRSY£. Number 

^FAILURE . Number 

*FAL.SE. Number 

*FRMDTE. Number 

$FRMSRV... Number 

CHIDDEN. ............ Number 

$LOGOPEN .. Number 

$MAXMSG. . Number 

$MND00 ... Number 

$MND01 .. Number 

$MND0£ . .... Number 

$MND03 ............. Number 

$MND04 ..... ... Number 

$MND05 ...... Number 

$MNT00 ....... . Number 

$MNT01 ..... . Number 

$MNT010. ............ Number 

$MNT0£ ............. Number 

$MNT03 . ..... Number 

3>MNT04 .. Number 

$MNT05 ... Number 

$MNT06 . ..... Number 

$MNT07 .... . Number 

3>MNT08 ............. Number 

&MNT09 ............. Number 

*NOCONS. ..... . Alias 

$NODERR.. Number 

$ONE . ... Number 

$P8£EML. ............ Number' 

$P8£ENB. . Number 

$P8£E0I. ....... . Number 

$P8£EPT. ............ Number 

$P8£QP0... Number 

tP8£0P1. ............ Number 

$P8£RIS. Number 

$POSKEY. .. Number 

$RDONLY. Number 

SRDWRITE. Number 

$5UBDIR.. Number 

^SUCCESS ............ Number 

$SY10PEN ............ Number 

$SY£OPEN ............ Number 

^SYSTEM. ............ Number 

$TBINTI. ............ Number 

*TBRENB.. Number 


00£0 
0000 
0007 
0066 
000A 
00 1 C 
0067 
*TRUE 
0001 
0001 
000 £ 
00FF 
0001 
0044 
001 £ 
000 £ 
0008 
0066 
0001 
0009 
000A 
000B 
000C 
0011 
000 £ 
0003 
0010 
0004 
0005 
0006 
0007 
0008 
000D 
000E 
000F 
$FALSE 
0000 
0001 
0004 
00FA 
00£0 
0005 
00£0 
00£1 
000B 
0014 
0001 
00FE 
0010 
0000 
0001 
000 £ 
0004 
0080 
0040 
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= 0001 


= 0001 


PAGE 60,132 
? 

-*********************************************************************** 
; Filename is PCSCHi.ASM I 

- *********************************************************************** 
; This file contains the code for Emulator initialization described in I 
; Section £. 8 of the Program Logic Description for the OMNINET PCShare I 
5 Disk Server Emulator, Version EL 0, dated 7 November 1983* The file I 
5 also contains the code to interface to PC DOS as an installed device I 
; driver', and code to provide entry points to the Corvus utilities- f 

5 ^ 

; The requirements for device driver code and data are described in I 

5 Chapter 14 of the IBM PC DOS E. 0 manual- The Emulator as a device ! 

; driver is named PCSMHOOK and the procedure is DR~~DEV~DRVR- EI-INIT I 

? (Chapter 9) obtains the location of the Corvus utilities jump table I 
$ by a device driver input call (as do the Corvus utilities), and the I 
; offset of the ECT from the first word following the jump table- fit I 

; the completion of its other processing EI-INIT calls the warm start I 

5 entry of the jump table to initialize the transporter and start the I 
; operation of the Emulator. 1 

5 I 

; Allocated data in the file includes the Device Driver header and the I 
; Emulator Communication Table, so the derived object file must be the I 
5 first one seen by the 1 inker- ! 

- *********************************************************************** 
M 

9 

• **************************************************************************** 


END IF 



5 

5 *********************************************************************** 


9 

5 *********************************************************************** 


1 

BEN...START <DR> 5 Driver structures 

4 


. LALL 


4- 


END IF 


4 


END IF 


4- 


END IF 


4 


IFIDN 

<TRACE>, <TRACE> 

4 

TRACE* 

as 

1 

4 


END IF 


4 


END IF 


4 


END IF 


4 


END IF 


4 


END IF 


4 


END IF 


4 


END IF 


4 


END IF 


4 


IFIDN 

<DEBUG>, <DEBUG> 

4 

DEBUG* 

as: 

1 

4 


END IF 


4 


END IF 


C4 


INCLUDE 

PCSTRUC.CRV 



i 
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************************************************************************************ 

Filename is PCSTRUC.CRV \ 

*********************************************************************** 
This file contains all structure definitions for the implementation I 
of the Corvus OMNINET PCShare Disk Server Emulator- It is included I 

in each of the assembly files when the START macro is invoked- The I 
selectors specified with that macro invocation cause the associated I 
structure definitions to be included in the assembly. Any set of 1 

definitions can be included with an appropriate set of selectors. I 

*********************************************************************** 

i 

Versions £'. 0 I 

I 

Last Updates 14 January 1984 I 

I 

*********************************************************************** 
[F DR* 

I • 

; Operating System Structures I 


Structure Names Device Driver Header 
References IBM PC DOS £.0 Manual, page 14-5 


0000 FF FF FF FF 
0004 8000 

0006 0000 
0008 0000 

000ft 50 43 53 4D 48 4F 

4F 4B 

00 1 £ 


DDH 

Ndev 

ftttr 

Strtn 

Dvrtn 

Dvnme 


STRUC 

DD 

DW 

DW 

DW 

DB 

ENDS 


8000H 

0 

0 

’PCSMHOOK’ 


5 No next device 

;Character device not supporting IOCTL 
;Offset to strategy routine 
;Offset to device exec routine 
;Corvus utilities call by this name 


Structure Names Request Header 

References IBM PC DOS £.0 Manual, page 14-11 


Associated return status flag values 


0080 

0001 


$RQerr 

$RQdun 


5 Indicates an error 
;Indicates comp1etion of request 


The structure itself 


0000 14 

0001 00 
000 £ 00 

0003 0000 

0005 08 L 


ROH 

RQlen 

RQucde 

RQopn 

RQstat 


STRUC 

DB 

DB 

DB 

DW 

DB 


0 

0 

0 

8 DUP < 0) 


;Length of the RQ header plus data 
;Unit code (N/ft for char device) 
;The command to be executed 
;Return status placed here 
■DOS uses this 


00 


3 


C+ 

C+ 
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c*+* 


000 D 00 

C + 

RQdta 

DB 

0 



;Data always starts with byte 

000E 00 00 00 00 

C+ 

RQrtri 

DD 

0 



; followed by buffer address 

00IS 0000 

c+ 

RQct 

DW 

0 



5 followed by data count 

0014 

c+ 

RQH 

ENDS 






c+ 

m 

9 







c+ 

END IF 







c+ 

ft 

9 







c+ 

IF <DR* 

OR Elt) 






c+ 

5 

— 

— 

--- 

— 

i 

i 

1 

1 

f 

i 

i 

! 

I 

i 

f 

i 

i 

1 

i 

1 

! 

1 

I 

1 

i 

i 

! 

i 

i 

i 

i 

\ 

! 

i 

1 

1 

1 

i 

I 

1 

i 

1 

i 

i 

i 

! 


c+ 

5 

Struct ure 

Narne s 

Emulator Access Table 


c+ 

f J. 

m 

1 

Reference: 

Progr 

am 

Logic descri pt ion, Sections 9-E* and 9-3 


L/*T* 

c+ 

5 

5 







c+ 

5 

Associated 

constant 

values 


c+ 

5 






= 0014 

c+ 

$PosKey 

EQU 

20 



;Offset to locate the keys 


c+ 

it 

H 







c+ 

KEYS 

STRUC 





0000 0000 

c+ 

KY EC 

DW 

0 



5 Place for offset to EOT 

0002 0000 

c+ 

KYJEXT 

DW 

0 



5 Place for offset to external driver 

0004 0000 

c+ 

KY_INT 

DW 

0 



5 Place for offset to interrupt driver 

0008 0000 

c+ 

KY„DTM 

DW 

0 



5 Place for Offset to timer intercept 

0008 

c+ 

KEYS 

ENDS 






c+ 

5 







c+ 

END IF 







c+ 

5 







c+ 

5 

— 

— 

—-- 

—— 

i 

I 

l 

l 

l 

! 

\ 

! 

i 

\ 

1 

! 

1 

1 

1 

! 

\ 

! 

1 

! 

! 

i 

1 

! 

I 

! 

1 

i 

1 

I 

! 

f 

1 

I 

i 

! 

! 

! 

1 

i 

f 

1 


c+ 

pj. 

5 



Emulator 

Resident Data Structures 


c+ 

5 

5 







c*+* 

5 

Universal 

value 

definitions 


c+ 

5 






= 0000 

c+ 

$True 

EQU 

0 



;Usually indicates OK or normal 

= 0001 

o 

$False 

EQU 

1 



;Usually indicates NG or unusual 

= 0000 

C-h 

$Zero 

EQU 

0 



;What is there to say 

= 0001 

C~h 

$One 

EQU 

1 



; about these? 

= 0080 

c*+* 

tSKnum 

EQU 

96 



§Number of internal stack entries 

= 0001 

C-h 

tVir_Drvl EQU 

1 



;Value for Virtual Drive 1 


C-h ; 



C + 

c+ 

c+ 

c+ 

c+ 

« — , 

5 

5 

5 

n 

9 

82590 PIC usage values 
Reference: Intel 8086 

User 9 s Manual 

0021 

c+ 

$P82opl 

EQU 

21 H 

5 Port for OCWI commands 

0020 

c+ 

C+ 

3>P82op0 

n 

i 

EQU 

20H 

5 Port for OCWE, 0CU3 commands 

000B 

C+ 

$P82Ris 

EQU 

0BH 

5 Read Interrupt Service register 

0020 

C+ 

$P82Eai 

EQU 

20H 

5 Simple end of interrupt 

0001 

C+ 

$P82TML 

EQU 

1 

;Timer interrupt level bit 

0005 

C+ 

$P82EML 

EQU 

4+*P82TML 

§ Transporter and timer levels 

00FA 

C+ 

C+ 

$P82enb 

5 

EQU 

0FFH-*P82EML 

§Enable xporter and timer 



I 

f 

€ 

i 

< 

i 

f 

f 

l 

t 

f 

f 

i 

c 

t 

« 

€ 

I 

< 

i 
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C+ 

c+ 

c+ 

c+ 


Structure Name: Emulator Communication Table 
Reference: Program Logic description, Section 1.4 




C+ 

M 

9 

Associated values and 

flags 



c+ 

5 




as 

0080 

c+ 

$Cons 

EQU 

80H 

;Write messages to console 

as 

0040 

c+ 

SConsPT 

EQU 

40H 

;Prompt for console at initialization 

rs 

0000 

c+ 

$AtrNrm 

EQU 

0 

;Standard attributes of Emulator files 

zz 

000 A 

c+ 

$TickMX 

EQU 

10 

;Default timer tick refresh count 



c+ 

* 

9 




ss 

0080 

c+ 

$TBintI 

EQU 

80H 

;Transporter interrupts installed 

zz 

0040 

c+ 

$TBrenb 

EQU 

40H 

; Transporter to run enabled 

ss 

0020 

ch¬ 

$TBrtck 

EQU 

20H 

; Transporter to run off timer tick 


00DF 

ou¬ 

$TBnotk 

EQU 

0FFH-$TBrtck 

;Mask to clear timer tick on 

SK 

0010 

gh- 

$TBinit 

EQU 

10H 

;Prompt for interrupts at init 

ZZ 

0004 

c+ 

$TRChrd 

EQU 

4 

; Trace output tp hat'd disk 

zz 

0002 

c+ 

$TRCcon 

EQU 

2 

;Trace output to console 

zz 

0001 

c+ 

$TRCdsk 

EQU 

1 

;Trace output to disk 



c+ 

9 






c+ 

M 

9 

Interr 

upt vector numbers 



c+ 

5 




=8 

000A 

c+ 

$Cal1EM 

EQU 

0AH 

; Emu1at or interrupt 

zz: 

00 IB 

c+ 

$Cal1CB 

EQU 

1BH 

;Control_break has occurred 

zz 

001 C 

c+ 

*Cal1TK 

EQU 

1CH 

; Tinter interrupt appendage 

zz 

0021 

c+ 

$CalIDS 

EQU 

21 H 

;D0S function call 

zz 

0023 

c+ 

$Cal1CA 

EQU 

23H 

;Control_break appendage 

nr 

0034 

c+ 

*Cal1KR 

EQU 

34H 

;Gets location In-DOS flag 

as 

0066 

c+ 

$Cal1DI 

EQU 

c. C 

DDrl 

;D0S intercept 

zz 

0067 

c+ 

UsCallTM 

EQU 

67H 

; Timer appendage recall 


0001 

c+ 

*CallTP 

EQU 

1 

;Trap interrupt 



c+ 

5 




ru 

00CD 

c+ 

*INT* 

EQU 

0CDH 

;Interrupt instruction code 

nr 

0001 

c+ 

STrapFL 

EQU 

1 

;Posit ion of trap flag in AH 



c+ 

5 






c+ 

•* 

9 

Field 

lengths 




c+ 

9 




m 

0008 

c+ 

$$Dir 

EQU 

8 


n: 

0008 

c+ 

$$Nam 

EQU 

8 


m 

0004 

c+ 

$$Next 

EQU 

4 


=s 

000 A 

c+ 

$$Serv 

EQU 

10 




c+ 

m 

9 






c+ 

• 

9 






C+ 

ECT 

STRUC 



0000 50 43 53 48 41 52 

C+ 

I den 

DB 

*PCSHARE2’ 

;Identifier of the version 


0008 
0009 
000A 
000B 
000C 
0000 
000E 

ms 


45 32 
43 
03 
40 
01 
01 
01 

0064 


3®43 53 48 41 52 


C+ 

C+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 


EC_Dat 

EC_Drv 

EC__Flg 

Tree 

Co 1 d 

EC„Trm 

Max 

Next 

Dir 


DB 

DB 

DB 

DB 

DB 

DB 

DW 

DW 

DB 


» C’ 

3 

SConsPT 

$FaIse 

$False 

$False 

100 

0 

’PCSHARE 


;Drive for Emulator files (character) 
;Same drive numeric I NEW FIELD I 

;Flag for log output to console 
;Trace active switch I NEW FIELD I 
;Cold start completed I NEW FIELD1 
;Emulator terminated I NEW FIELD! 

;Maximum number records in log file 

5 RRN for next log record 
;Name of directory for Emulator files 


I 

f 

( 

4 

4 

€ 

4 

4 

I 

1 

< 

« 

f 

f 

< 

f 

4 

t 

€ 

< 
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45 £8 



c+ 






881A 58 43 

53 

48 41 5£ 

c+ 

Nam 

DB 

’PCSHARE ’ 

;Filename for Emulator files 


45 80 



c*+* 






00££ 0A 

c 


c+ 

Serv 

DB 

$$Serv DUP C ’) 

5 Emulator name as a disk server 




£0 

c+ 








3 

c+ 









c+ 






00EC 00 



CH- 

EC_AtrU 

DB 

$AtrNrm 

5 Attributes of User area file 

IN FI 

00£D 00 



c+ 

EC AtrS 

DB 

$AtrNrm 

;Attributes of System area files 

IE I 1 

00£E 00 



c+ 

EC_AtrL 

DB 

$At rNrm 

;Attributes of Log file 

IW El 

00£F C0 



c+ 

EC_TBI 

DB 

$TBintI+$TBrenb 

;Transporter int flags 

1 L1 

0030 0A 



c+ 

TL truck 

DB 

•TiekMX 

5 Current timer tick count 

1 D1 

0031 0A 



c+ 

TLtmrs 

DB 

$TickMX 

;Value to reset timer tick count 

1 S 1 

003£ 01 



c+ 

KEEPout 

DB 

$False 

;DOS has been entered flag 

1 1 

0033 01 



C-+* 

INTdfr 

DB 

$False 

5 Deferred interrupt flag 

1 1 

0034 0000 



c+ 

DOSdkO 

DW 

0 

5 Holds location of DOS 

1 1 

0036 0000 



c+ 

DDSdkS 

DU) 

0 

5 Critical section (In—DOS) Flag 

1 i 

0038 0088 



c+ 

DDRH 

DW 

8 

;Holds location of request header 

when 

003A 0000 



c+ 

DDRHS 

DW 

0 

; Device Driver called 1 NEW 

FIELD! 

003C 0000 



c+ 

TckO 

DW 

0 

5 HoIds 1ocation of timer tick int 

when 

003E 0000 



C+ 

TckS 

DW 

8 

; no transporter ints I NEW 

FIELD 1 

0040 



C+ 

ECT 

ENDS 







c+ 

5 








c+ 

? ' 

— 

-- 

--—----* 

--- 




c+ 

5 

Structure Names Log Request Block 





c+ 

C+ 

C+ 

5 

References Program Logic Description, Section 4-87 





5 

5 








C+ 

n 

9 

Associat ed va1ues 






C+ 

5 





* 0066 



C+ 

*MAX MSB 

EQU 

10 £ 

5 Maximum message length 





C+ 

II 

» 








c+ 

5 

Log 

message numbers 






c+ 

5 





= 0001 



c+ 

$MND80 

EQU 

i 

5 Initialization message 


= 000£ 



c+ 

$MIMT00 

EQU 

8 



= 0003 



c+ 

*MNT01 

EQU 

3 



= 0004 



c+ 

$MNT0£ 

EQU 

4 



- 0085 



c+ 

$MNT83 

EQU 

5 



= 0006 



c+ 

$MNT04 

EQU 

6 



= 0007 



c+ 

*MNT85 

EQU 

7 



« 0008 



c+ 

*MNT86 

EQU 

a 



■ 0009 



c+ 

*MND01 

EQU 

9 



= 000A 



c+ 

•MNDSS 

EQU 

10 



SB 000B 



c+ 

*MND03 

EQU 

11 



= 000C 



c+ 

$MND04 

EQU 

12 



* 000D 



c+ 

$MIMT07 

EQU 

13 



= 000E 



c+ 

$MNT08 

EQU 

14 



= 000F 



c+ 

*MNT89 

EQU 

15 



= 0010 



c+ 

$MNT010 

EQU 

16 



* 0011 



c+ 

$MND85 

EQU 

17 



= 00 i£ 



c+ 

*MNT011 

EQU 

18 



* 0013 



c+ 

*MND86 

EQU 

19 

;ORB missing 


= 0014 



c+ 

$MNT01£ 

EQU 

£0 

5 Bad pipes tables 





c+ 

n 



> 
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€ 

f 

i 

« 

f 

4 
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I 

f 

« 

f 

« 
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< 

« 

« 

4 

i 

t 

i 

I 




c+ 

LRB 

STRUC 

0000 

00 

c+ 

Cde 

DB 

0001 

00 

c+ 

LR Leri 

DB 

000£ 


c+ 

LRB 

ENDS 



c+ 

5 




c+ 

END IF 




c+ 

5 




c+ 

IF CDR$ 

OR TL$ 


00B0 

0080 

0080 

00B0 

00A0 


0000 

0001 

000 £ 

0003 

0010 

00FF 


0001 

00FF 


000A 


0 

0 


;Module ID code 
;Length of the message string 


C+ 

C+ 

C+ 

C+ 


Transporter Usage Parameters 



0100 

C+ 

♦InitTA 

EQU 

100H 


7FFF 

C+ 

♦MaxDly 

EQU 

7FFFH 


0010 

C+ 

♦MaxRty 

EQU 

10H 

as 

000A 

C+ 

♦MaxWte 

EQU 

10 

= 

01FE 

C+ 

♦ProID 

EQU 

01FEH 

— 

00CF 

C+ 

♦SndNAD 

EQU 

0CFH 

s= 

0£11 

c+ 

♦MaxTBD 

EQU 

5£9 



c+ 

5 




;Initial transporter COB address 
;Max loop count for operation complete 
;Maximum number operation retries 
;Maximum wait time in seconds 
;prot oco 1 id entifier 
;Invalid command for NAD reply 
;Longest data transfer (w/o disk stat) 


C+ 

C+ 

C+ 

C+ 


Transporter Socket Usage Conventions 


♦SokTD 

EQU 

0B0H 

; To 

transmit data 

♦SokTM 

EQU 

80H 

5 To 

transmit an NLM 

♦SokRM 

EQU 

80H 

5 To 

receive an NLM 

♦SokRC 

EQU 

0B0H 

5 To 

receive initial command sequence 

♦SokRL 

5 

EQU 

0A0H 

5 To 

receive remainder of long command 

M “*~ ~“ ~“ ***“ “~ ***" 

5 

Struct ur 

e Name; Name 

Lookup 

i Message 


C+ 

C+ 

c+ 
c+ 
c+ 
c+ 
c+ 
c+ 

C+ *NLHi 
C+ $NLAny 
C+ $NLWho 
C+ SNLWhr 
C+ *NLIdn 
C+ $NLBye 
C+ ; 

C+ 5 
C+ ; 

C+ $NLDsk 
C+ *NLDny 
C+ : 

C+ ; 

C+ ; 

C+ $NameLN 


References Program Logic Description, Section £. 


Associated message type codes (most significant byte) 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


0 

1 

h' 

3 

10H 

0FFH 


; He 13. o 

5 Any disk server (old protocol) 
;Who are you? 

5 Where are you? 

;Ident ification 
5 Good bye 


Associated device types of interest to Emulator 


EQU 

EQU 


1 

0FFH 


5 Disk Server 
5 All Devices 


C*+* 

c+ 

C-+* 


Associated Name Length 

EQU 10 §Needed because GTRUC is weak 

The structure itself (arithmetic reverses byte order 
for transporter memory storage) 


C 

« 

l 

€ 

f 

4 

f 

f 

I 

t 

f 

f 

C 

f 

I 

4 

4 

( 

f 

< 

f 

f 




The IBM Personal Computer MACRO Assembler 01-15-04 


PAGE 


0000 FE01 
000 £ 0000 
0004 0000 

0006 0100 

0008 50 43 53 48 41 5£ 
45 £0 £0 £0 

00 1 £ 


0000 0000 
000 £ 0000 
0004 


STRUC 

DW 

DW 

DW 

DW 


Name DB 


ENDS 


*ProID/£56 + £56*<*ProID AND 0FFH) 

$NLhi ;Message Type 

0 ;Station Number of sender 

£56*$NLDsk ;Device Type 

’PCSHARE ’ ;Device or user name 


Structure Name: Receive ICS control area 
Reference: Corvus OMNINET Programmer’ Guide 


RRRCV STRUC 
Lofcrn DW 
ELofRp DW 
RRRCV ENDS 


;length of the command being sent 
;Expected reply length (w/o status) 


Structure Name: Send Reply control area 
Reference: Corvus OMNINET Programmer’ Guide 


0000 0000 
000 £ 00 
0003 


RRSND 

ALofRp 

Dstat 

RRSND 


STRUC 

DW 

DB 

ENDS 


;Actual length 
;Disk status 


>f reply ( inc 1 status) 


Structure Name: Transporter Status Table Header 
Reference: Program Logic description, Section £. 


0000 00 
0001 01 
000 £ 00 
0003 00 

0004 


TSTH 

Int 

TT__CI 

NE 

TT_NAD 

TSTH 


STRUC 

DB 

DB 

DB 

DB 

ENDS 


0 

$False 

0 

0 


;Interrupt depth indicator 
;Command Interpreter invocation flag 
;Number of entries in TST 
;Net work address of Emulator 


Structure Name: Transporter Status Table Entry 
Reference: Program Logic Description, Section £.3 


0000 01 
0001 00 
000 £ 00 
0003 00 

0004 0000 

0006 0000 
0008 0000 


TSTE 

PN 

TT_ST 

SK~ 

TT__OP 

CCB 

RR 

Dtl 


STRUC 

DB 

DB 

DB 

DB 

DW 

DW 

DW 


$False 

0 

0 

0 

0 

0 

0 


;QRB pending flag 

;Stat us code from result record 
;Socket to be used 

; Transporter comrnmand I NEW USAGE I 
;Transporter address of the CCB 
I Transporter address of result record 
;Transporter address of data area 


< 


f 
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mm 

0000 

C + 

Dsz 

DW 

0 

5 Length of data area in bytee 

000C 

0000 

C + 

Isr 

DW 

0 

5 Offset address of int service routine 

000E 

0000 

C + 

Isrs 

DW 

0 

5 Reserved for segment address 

0010 

0000 

C + 

TTJDrb 

DW 

0 

5 Offset address of pending ORB 

001£ 

0000 

C + 

TT Orbs 

DW 

0 

5 Reserved for segment address 

0014 


C + 

TSTE 

ENDS 





C + 

5 






c+ 

ENDIF 






c+ 

m 

9 






c+ 

ENDIF 






c+ 

• 

9 






c+ 

c+ 

c+ 

IF <DR$ 

m - 

OR TL*> 





? 

Structur 

'e Name s 

Command Request Queue Header 1 



c+ 

c+ 

n 

9 

u 

References Program Logic Descri pt ion, Section £« 5 1 



c+ 

c+ 

5 

5 

ftssociated queue 

status indicator values 



c+ 

5 




= 0000 

c+ 

$RQrnt 

EQU 

0 

; Queue is empty 

= 0001 


c+ 

$RQ@nt 

EQU 

1 

5 Queue has entries but is not full 

= 00FF 

c+ 

*RQful 

EQU 

0FFH 

5 Queue is full 



c+ 

5 




» 0080 


c+ 

$RQdse 

EQU 

80H 

?Disk status error flag bit 



c+ 

5 






c+ 

CRQH 

STRUC 



0000 

00 

c+ 

Qst 

DB 

$RQrnt 

5 Queue status indicator 

0001 

00 

c+ 

Dsc 

DB 

0 

5 Current disk status code 

000E 

0000 

c+ 

End 

DW 

0 

; Offset address following CRQ 

0004 

0000 

c+ 

Top 

DW 

0 

;Offset address of head entry 

0006 

0000 

c+ 

Bot 

DW 

0 

5 Offset address of tail entry 

0008 


c+ 

CRQH 

ENDS 





c+ 

5 






c+ 

ENDIF 





C+ ; 

C+ ENDIF 
C+ ; 

C+ IF <DR* OR TL* OR LC$> 

C+ ; Transporter structures and associated values I 

C+ ; Reference: Corvus OMNINET Programmer’s Guide I 

C+ J 

C+ ; Transporter Command Control Block 

C+ ; 


0000 

00 

C + 

C + 

CCBLK 

CC_Cmnd 

STRUC 

DB 

0 

5 Command 


0001 

00 

C + 


DB 

0 

5 fi11 for high address 

byte 

000c! 

0000 

C + 

RRA 

DW 

0 

5 address Result Record 


0004 

00 

c+ 

Sock 

DB 

0 

5 socket to use 


0005 

00 

c+ 


DB 

0 

5 fi11 for high address 

byte 

0006 

0000 

c+ 

CC_Data 

DW 

0 

;Data address 


0008 

0000 

c+ 

Dat 1 

DW 

0 

5 Data length 


000A 

00 

c+ 

Con 1 n 

DB 

0 

5 Cont ro1 length 


000B 

00 

c+ 

DHost 

DB 

0 

$Destination host (if \ 

,*r ite) 
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000C 

C+ 

CCBLK 

ENDS 




C+ 

5 





C+ 

5 

Transpo 

irter Result 

Record st ructure 


C+ 

5 





C+ 

RRKD 

STRUC 



0000 FF 

C+ 

RCode 

DB 

0FFH 

;Return Code 

0001 00 

c+ 

SHost 

DB 

0 

;Source Host (if read, 0 writ e) 

0002 0000 

c+ 

Rcvlen 

DW 

0 

5 Length data received (if read) 

0004 

c+ 

RRKD 

ENDS 




c+ 

M 

7 





c+ 

7 

Transporter port definitions 


c+ 

5 




= 0249 

c+ 

*RdRAM 

EGU 

249H 

;To read wit hout incrementing counter 

= 024B 

c+ 

SRdRAMI 

EQU 

24BH 

{To read and increment counter 

= 0240 

c+ 

$RdStat 

EQU 

240H 

;To read st at us 


c+ 

7 




= 0240 

C4 

$WrCtrH 

EQU 

240H 

;To set high byte of counter 

= 024A 

c+ 

*WrCtrL 

EQU 

24AH 

;To set low byte of counter 

= 024B 

o 


EQU 

24BH 

;To write data and increment counter 


CH- 

5 




= 0249 

C-+* 

$WrSt be 

EQU 

249H 

5 To strobe command address 


c+ 

5 




= 024C 

C4 

$DiINT 

EQU 

24CH 

{To disable (disarm) interrupts 

— 0240 

C+ 

$C1INT 

EQU 

24DH 

;To clear interrupt latch 

* 024E 

04 

$EnINT 

EQU 

24EH 

5 To enable (arm) interrupts 

= 024F 

c+ 

$StINT 

EQU 

24FH 

;To read interrupt status 


04 

5 





04 

w 

7 

Transporter Stat us 

Flags 


04 

7 




« 0000 

04 

#TRedy 

EQU 

00H 

{Transporter ready 

= 0020 

04 

$TRe?nb 

EQU 

20H 

;Transporter interrupts enab1ed 

= 0010 

04 

$TRpnd 

EQU 

10H 

{Transporter interrupt pending 

= 0000 

04 

$TRlat 

EQU 

0 

{Interrupt latch 


04 

7 





04 

« 

7 

Transpc 

irter command 

1 codes 


c+ 

7 




= 0040 

04 

$Send 

EQU 

40H 

{Send message 

= 00F0 

04 

$Setup 

EQU 

0F0H 

{Setup to receive message 

= 0010 

c+ 

$End Rev 

EQU 

10H 

{End receive if no message 

= 0020 

04 

*Ir.itT 

EQU 

20H 

{Initialize t ransporter 

■ 0001 

c+ 

$WhoAmI 

EQU 

01H 

{Finds transporters NAD 

= 0002 

04 

$Echo 

EQU 

02H 

{Test presence of specified transporter 


04 

; $PP 

EQU 

00H 

{Peek/Poke not used 


04 

5 





04 

5 

Transporter resu11 

codes 


c+ 

5 




= 0000 

04 

$Tr0K 

EQU 

00H 

{Command comp1eted successfu11y 

« 007F 

04 

*TrST 

EQU 

7FH 

{Successful transmit retry maximum 

= 0000 

04 

*TrNG 

EQU 

00H 

{Transmit failure, retry count exceeded 

= 0001 

04 

*TrDL 

EQU 

01H 

{Data too long for receive buffer 

= 0002 

04 

*TrNS 

EQU 

02H 

{Receiver’s socket not set up 

= 0003 

04 

♦TrCL 

EQU 

03H 

{Control length mismatch 

= 0004 

04 

*TrIS 

EQU 

04H 

{Invalid socket 

® 0005 

04 

*TrNR 

EQU 

05H 

{receive socket in use 

= 0006 

04 

$Tr IT 

EQU 

06H 

{invalid transporter address 
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= 00C0 
= 00FE 


= 0040 
= 00FF 
= 00FF 


= 0000 
= 00FF 


0000 00 


0001 01 
000£ 0£ C 


0004 0000 

0006 0000 
0008 0000 
000A 0000 
000C 0000 

000E 0000 

0010 0000 
0012 


c* 

♦TrEft 

EQU 

0C0H 

5 Echo command acknowledged 

c+ 

*TrSS 

EQU 

0FEH 

;Receive socket setup successful 

C+ 

9 




C+ 

m 

9 

Transporter usage 

values 

c+ 

« 

9 




c+ 

*NADok 

EQU 

64 

5 First invalid NPlD value 

c+ 

*A11NAD 

EQU 

0FFH 

;NPD for broadcast 

c+ 

*TrSU 

EQU 

0FFH 

;Initialization value for result 

c+ 

m 

9 




c+ 

m 

9 




c+ 

END IF 




c+ 

<i 

9 




c+ 

END IF 




C4- 

« 

9 




c+ 

END IF 




c+ 

9 




C4- 

if (Dm 

or DR* 

or EI$) 


C-+* 

5 

— 

— 

i 

i 

i 

! 

1 

i 

i 

i 

! 

I 

I 

1 

! 

1 

1 

1 

1 

1 

i 

1 

1 

i 

! 

I 

i 

1 

! 

I 

1 

i 

1 

! 

» 

i 

i 

I 

i 

I 

i 


C+ ; Structure Name: Input/Output Request Block 

C+ ; Reference: Program Logic Description, section 4.6 

C+ ; 

C+ ; Associated completion codes 

C+ ; 

C+ ; 

C+ ^SUCCESS EQU 0 

C+ ^FAILURE EQU 0FFH 


code 


c+ 

5 



c+ 

9 

The sti 

"ucture itself 

c+ 

m 

9 



c+ 

I ORB 

STRUC 


c+ 

IO_FLG 

DB 

0 

c+ 

? 



c+ 

1 



c+ 

IO_Cls 

DB 

*False 

c+ 


DB 

£ DUP(0) 

c+ 




c+ 




c+ 




c+ 

NUM 

DW 

0 

c+ 

DSPL 

DW 

0 

c+ 

DSPM 

DW 

0 

c+ 

ADR 

DW 

0 

c+ 


DW 

0 

c+ 

FCB 

DW 

0 

c+ 


DW 

0 

c+ 

IORB 

ENDS 


c+ 

5 



c+ 

END IF 



c+ 

5 



c+ 

END IF 



c+ 

1 



c+ 

ENDIF 



c+ 

ENDIF 




FLAGS: 

00-OPERATION SUCCESSFUL 
FF—OPERATION NOT SUCCESSFUL 
Close file indicator 
RESERVED 


NUMBER OF 1£8 BYTE RECORDS 
RRN OF FIRST 128 BYTE RECORD LSB 
RRN OF FIRST 1£8 BYTE RECORD MSB 
ADDRESS OF BUFFER (OFFSET) 
ADDRESS OF BUFFER (BASE) 

ADDRESS OF FCB (OFFSET) 

ADDRESS OF FCB (BASE) 
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C+ ENDIF 
C+ 


5 x-************#********************************************************* 
5 Segment Usage Definition 

; ****** It********************* **************************************** *** 


PCS GROUP PC_CODE,PC_DATA,PC_INIT 

ASSUME CS:PCS,DS:PC_DATA,ES:PC_DATA 
5 

;*********************************************************************** 
: External Symbol Definitions I 


EXTRN TT:BYTE 

EXTRN TTbgn:BYTE 

EXTRN TTend:BYTE 
EXTRN TrmNAD:BYTE 
EXTRN RevICS:BYTE 
EXTRN RevNLM:BYTE 
EXTRN VarOP:BYTE 

EXTRN IDrnsg :BYTE 
EXTRN MND001:WORD 
EXTRN 10:BYTE 
EXTRN TL_BYT_OUT:NEAR 
EXTRN TL_WRD_OUT:NEAR 
EXTRN TL_DTA_OUT:NEAR 
EXTRN TL_DO_CMND:NEAR 
EXTRN TL_SET_RECV:NEAR 
EXTRN TL_SEND_NLM:NEAR 

EXTRN DM_.ERR_.LOG: NEAR 
EXTRN TL_INT_DRVR:NEAR 

EXTRN TL__INT_TEST:NEAR 
EXTRN TL INT DTME:NEAR 


5 TST header 

;Initial non-local TST entry 
;End of TST entries 
;TST entry to send NAD 
;TST entry for ICS receive 
;TST entry for NLM receive 
;TST entry for variable ops 
;NL message image 
initialization message insert 
;Internal IORB 
;Send byte to transporter 
;Send word to transporter 
5 Send data to transporter 
5 Execute transporter command 
5 Set up to receive message 
5 Send an ML message 
5 Log routine 
;Main interrupt driver' 

;Entry to hardware int driver 
;Timer tick interrupt driver 


************************************************************************ 


0000 


PC CODE 


PUBLIC ’CODE’ 


0000 


PC START LABEL NEAR 


;For starting address 


I Allocated Data: Note that for this file only there is I 
; data allocated in the code segment I 
; *********************************************************************** 


Device Driver' Header 


0000 FF FF FF FF 
0004 0000 

0006 0043 R 

0000 0050 R 

000A 50 43 53 4D 40 4F 

4F 4'B 


P'CSH 


, DR_STR, DR_INT> 


?Offsets are t< 


device strategy 


< 







* 

« 

c 

< 

< 

c 

t 

t 

t 

« 

t 

« 

f 

t 

< 

i 

€ 

< 

t 

< 

i 
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i-ie 


= 0012 


0026 


0043 


arid interrupt routines 


UTII 


Corvus Utilities Transfer Table 
HOOK EQll THIS BYTE 


0012 

ES 00ES 

R 

JMP 

NEAR PTR 

IJTIL_ 

INIT 

5 CoId Start Entry 

0015 

0000 


UTIL._CS DU 

0 



5 place for segment 

0017 

E9 00E9 

R 

JMP 

NEAR PTR 

UTIL_ 

INIT 

3 Warm Start entry 

001 A 

0000 


DW 

0 



5 place for segment 

00 1C 

E9 00E6 

R 

JMP 

NEAR PTR 

UTIL_ 

.10 

3 Entry to call I/O Services 

001 F 

0000 


DW 

0 



3 place for segment 

0021 

E9 00E8 

R 

JMP 

NEAR PTR 

UTI L._ 

DMMY 

5 Ent ry t o d ummy ret urn 

0024 

0000 


DW 

0 



3 place for segment 


UTIL HEMD EQU THIS BYTE 


Structure with offsets to Key Emulator locations 
NOTE: This must immediately follow the UTIL__HOOK table 


0026 

0000 

R 

DDkeys 

KEYS 

(OFFSET PCS:EC> 

^Filled in from table values o 

0026 

0000 






002 A 

0000 






002C 

0000 









9 

5 



5 by driver initialization 




9 *“ 

9 

Device 

driver function 

dispatching table 

= 002 

:E 


9 

DDtrt 

EQU 

THIS WORD 


002E 

0094 

R 


DW 

DD ini t 

3 Device driver initialization 

0030 

0086 

R 


DW 

DDxit 

5 Media Check is null 

0032 

0086 

R 


DW 

DDxit 

5 Bui Id BPB is null 

0034 

0086 

R 


DW 

DDx it 

;I0CTL not suppov'ted 

0036 

00A7 

R 


DW 

DDUti1 

;Input gets utility pointer 

0038 

00BA 

R 


DW 

DDUtib 

?ND Input gets one byte of ptr 

003A 

0086 

R 


DW 

DDxit 

?Input status is not busy 

003C 

00DE 

R 


DW 

DDUfx 

5 Any output resets the 

003E 

00DE 

R 


DW 

DDUfx 

3 ND Input byte pointer 

= 0040 


DDtrte 

EQU 

THIS WORD 

;A11 others are null, so we 




H 

9 

9 



cut off the table here 




9 *“** 

« 

9 

Data r 

squired for device driver functions 

0040 

0000 


9 

DDUctr 

DW 

0 

3 Byte position next returned 

0042 

01 


DDId un 

DB 

$False 

;Driver initialization flag 


PC_CODE ENDS 
5 


Allocated data (Data Segment) 


I 

c 

f 

< 

« 

< 

« 

€ 

I 

f 

i 

f 

l 

f 

i 

i 

< 

l 

€ 

€ 

« 

I 
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0000 
= 0000 


0000 

50 43 

45 3S 

53 

48 

41 

5ci! 

0008 

43 





0009 

03 





000 A 

40 





000B 

01 





000C 

01 





000D 

01 





000E 

0064 





0010 

0000 





00 IS 

50 43 
45 £0 

53 

48 

41 

52 

001 A 

50 43 
45 £0 

53 

48 

41 

5£ 

00SS 

0A 

C 

20 

1 


002C 

00 





002D 

00 





00SE 

00 





00SF 

C0 





0030 

0 A 





0031 

0A 





003S 

01 





0 0 i-j 3 

01 





0034 

0000 





0036 

0000 





0038 

0000 





003A 

0000 





003C 

0000 





003E 

0000 






PC_DATA SEGMENT PUBLIC ’DATA’ 

Dta_Bgn EQLJ THIS BYTE ;Start of Data segment area 

Emu1at or Comm unication Table 

ECT <> ;STRUC values may be modified 


5 

5 

EC 


0040 

0041 

004£ 

0044 

0045 

0046 

0040 

004A 

004B 


00 

00 

0000 

00 

00 

0000 

0000 

00 


Prototype CCB for transporter initialisation 


SetupT CCBLK 


<> 


;Fi1led in by TL—INIT-TLD 


004C 


PC DATA ENDS 
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- *********************************************************************** 
; Device Driver and Corvus Utility Routines I 

- *********************************************************************** 

PC^CODE SEGMENT PUBLIC 9 CODE’ 

9 

5 *********************************************************************** 

5 Module names Device Driver Routines l 

« I 

9 1 

{Versions £-0 I 

9 i 

5 Last Updates £3 December 1983 I 

5 l 

;Functions The Device Driver routines implement the installed device I 
; driver functions required by PC DOS £•0- I 

9 1 

5 DR-STR is the entry point to the device strategy routine i 

5 wh iose on1y function is to save the 1ocation of the i 

5 request header- I 

9 * 

; DR-INT is the entry point to the device interrupt routine- I 

; The INIT function carries out the Emulator cold start I 

{ procedure- The two INPUT device functions return a I 

5 1 ony pointer to the Corvus ut i 1 ity j urnp table (wh ich is I 

$ the UTILHOOK function)- All other device functions are I 

5 null operations- I 

? I 

{Procedures See individua1 routines I 

9 I 

{Cal led bys DOS using device driver protocol I 

9 l 

;Routines called: EI-INIT I 

5 I 

;Input: ES:(BX) = Location request header (PC-DEV-STR only) I 

9 ^ 

;Output: Modified request header (PC-DEV-INT only) I 

9 ^ 

{ Error proced uress None 1 

9 ^ 

;Wr.itten by s R-B- Talmadge, Computer Technology Ltd I 

9 ! 

;Updatess None I 

9 i 

5 *********************************************************************** 


DRJDEV^DRVR PROC FAR 

9 


0043 


DR_STR LftBEL 

NEftR 

0043 

56 

PUSH 

SI 

0044 

BE 0038 R 

MOV 

SI, 

0047 

2E: 89 1 C 

MOV 

CS: 

004ft 

2E: 8 C 44 02 

MOV 

CS: 

004E 

5E 

POP 

SI 


CS:CSI+£],ES 


;Get offset for 
DDRH ; address storage 
;Save full 0088 address 
5 of request header 
: and return to caller 


f 
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004F 

CB 





RET 


0050 




V 

DR. 

_INT 

LABEL 

NEAR 





5 


ENTER 

Dta_Bgn ;Save registers and set environment 

0050 

50 


4’ 



PUSH 

AX 

0051 

53 


4 



PUSH 

BX 

005S 

51 


4* 



PUSH 

CX 

0053 

5£ 


4- 



PUSH 

DX 

0054 

56 


4* 



PUSH 

SI 

0055 

57 


4- 



PUSH 

DI 

0056 

55 


4* 



PUSH 

BP 

0057 

IE 


4- 



PUSH 

DS 

0058 

06 


4* 



PUSH 

ES 

0059 

ac 

C 8 

4* 



MOV 

AX, CS 

005B 

BB 

0000 R 

4* 



MOV 

BX,OFFSET PCSsDta_Bgn 

005E 

D1 

EB 

4* 



SHR 

BX, 1 

0060 

D1 

EB 

4* 



SHR 

BX, 1 

006S 

D1 

EB 

4* 



SHR 

BX, 1 

0064 

D 1 

EB 

•4 



SHR 

BX, 1 

0066 

03 

C3 

4* 



ADD 

AX, BX 

0068 

8 E 

D 8 

4* 



MOV 

DS, AX 

006A 

8 E 

C0 

4* 



MOV 

ES, AX 

006C 

8 B 

EC 

“ 1 “ 



MOV 

BP, SP 

006E 

C5 

IE 0038 R 


? 


L.DS 

BX,DWORD PTR EC. DDRH ;Get address of request header 

007E 

3£ 

E4 




XOR 

AH, AH ; and fetch operation code 

0074 

8 A 

47 0£ 




MOV 

AL,CBX3.RQopn 

0077 

D0 

C0 


5 


ROL. 

AL, 1 ;Transfer table offset 

0079 

3D 

00 1 £ 




CMP 

AX,OFFSET DDtrte - OFFSET DDtrt 

007C 

7D 

08 




JGE 

DDxit sExit if out of range 

007E 

BE 

00£E R 




MOV 

SI,OFFSET DDtrt ;Position to transfer 

0081 

03 

F0 




ADD 

SI,AX ; table entry and call 

0083 

£E 

: FF 14 




CALL 

WORD PTR CS:CSI3 ; function routine 





H 

a 

9 


Reent 

ry point here for all device driver function routines. 





5 


The completion bit is set in the request header status field, 





« 

*? 


inter 

rupts are turned back on, and the routine exits. 

0086 

80 

4F 03 01 


9 

UDxits 

OR 

BYTE PTR CBX3.RQstat,$RQdun 







EXIT 

NOINT 3 Go back to caller 

008A 

07 


4 * 



POP 

ES 

008B 

IF 


4 * 



POP 

DS 

00SC 

5D 


4 * 



POP 

BP 

008D 

5F 


4* 



POP 

DI 

008E 

5E 


4- 



POP 

SI 

008F 

5A 


4- 



POP 

DX 

0090 

59 


4 . 



POP 

CX 

0091 

5B 


4* 



POP 

BX 

009S 

58 


4* 



POP 

AX 

0093 

CB 


4* 



RET 


0094 




DR_ 

_DEV_ 

DRVR 

ENDP 
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0094 


DR DEV FNS PROC NEAR 


Enter here for device driver initialization. The EI_ONE 
one-time initialization routine is called if it has not 
previously been called. The transporter is not initialized 
by this routine. It will be initialized by a call to either 
of the UTIL HOOK start entries (cold or warm). 


0094 £E: 80 3E 0042 R 01 

009A 74 01 

009C C3 


DDinit 


CS:DDIdun,$False 
DDinil 


;If this is not the 
; first entry, do not 
; take any action 


009D E8 0000 R 

00A0 2E: C6 06 0042 R 00 

00A6 C3 


DDinil: CALL NEAR PTR EI_ONE 

MOV CS:DDId un,$True 

RET 


5 Go do first time work 
;Assure no return here 
;Ret urn from whence we came 


Enter here for the Input function. The caller is sent 
the full 8088 segmented address of the utility transfer 
table as the first four bytes of the input buffer 


00A7 IE 


DDUti1: PUSH 


! Save segment 


00A8 C5 7F 0E 
00AB BE 0012 R 
00AE 89 35 
00B0 8C 4D 02 


DI, CBX3. RQrtri 
SI,OFFSET UTIL_HOOK 
CDI3,SI 
2CDI3,CS 


;Buffer address 
;Offset of jump table 
;Store offset, then 
; segment address 


00B3 IF 

00B4 C7 47 12 0004 
00B9 C3 


CBX3.RGct,4 


;Restore segment 
;Set return count 
: and exit 


Enter here for Non-destructive input function. The caller 
is returned one byte of the address of the utility transfer 
table. After four entries the progression starts over. 


00BA 2E: SB 0E 0040 R 
00BF B8 0012 R 

00C2 F6 Cl 02 

00C5 74 02 

00C7 8C C8 


DDUtib: 


MOV 

MOV 

TEST 

JZ 

MOV 


CX,CS:DDUct r 

AX,OFFSET UTILJHOOK 

CL, £ 

DDUtic 
AX, CS 


;Fet ch current position 
;Get offset or 
; Segment address 


00C9 F6 Cl 01 
00CC 74 02 
00CE 8A C4 
00D0 88 47 0D 


DDUtici 


DDUtid 


TEST 

JZ 

MOV 

MOV 


CL, 1 
DDUtid 
AL, AH 

CBX3 . RQdta, AL 


;Position byt e 
; to low order 

;Store byte in request hdr 


00D3 41 

00D4 81 El 0003 

00D8 2E: 89 0E 0040 R 
00DD C3 


CX 

CX, 3 

CS;DDUctr, CX 


;increment to next 
; position modulo 3 
;Store new value 
: and exit 


Enter here for any output function. The Non-destructive input 
position indicator (field DDUctr) is set to zero. 


00DE 2E: C7 06 0040 R 0000 


DDUfx: 


CS:DDUctr, 0 


;Fix up 



The IBM Personal Computer MACRO Assembler 01-15-84 


PAGE 


1-17 


00E5 C3 
00E6 


00E6 

00E6 

00E6 CD 0A 
00EQ 
00E© CB 
00E9 

00E9 IE 
00E« 06 


RET 


arid exit 


DR_DEV„FNS ENDP 

-*********************************************************************** 
{Module names Corvus Utility Routines 
•I 

{Versions £« 0 
5 

5 Last Updates 7 December 1983 
* 

{Functions The Corvus Utility routines are called by those Corvus 
3 Corvus routines that require access to the Local Command 

I/O services. 


UTIL_IO executes the proper interrupt to call the Local 
Command service, and exits on return 

UTIL_INIT call TLD initialization to do a warm start 

{ UTIL_DMMY does nothing 

5 Procedure: Bee Program Logic Description, Section 8.1 
5 

{Called bys Corvus utilities 

jRoutines called: TL~INIT~TLD 
5 

;Input: Registers data as required by Local Command I/O 

? 

{Output: Register data set by Local Command I/O 

? 

§ Error procedures: None 

{Written bys R. B. Talrnadge, Computer Technology Ltd 
5 

{Updates: None 

• 

9 

{ ********************#*********#**#*****************#*##*#4r#******##*-#-tt# 

N 

9 

DR DEV UTIL PROC FOR 


UTIL„IQ LABEL NEAR 
5 


INT 


$Cal1EM 


:Call the Emulator 


UTIL_DMMY LABEL NEAR 

* 

* 

RET 

» 

9 

UTIL_INIT LABEL NEAR 

«t 

9 


; Ex i t 


ENTER Dta_Bgn,,Noregs 
PUSH DS 

PUSH ES 


; Set env i ronrnent 
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00EB 

8C 

C8 


4* 


MOV 

fiX, CS 


00ED 

BB 

0000 

R 

4* 


MOV 

BX, OFFSET PCS:Dta 

_Bgn 

00F0 

D1 

EB 


4* 


SHR 

BX, 1 


00F2 

D1 

EB 


4“ 


SHR 

BX, 1 


00F4 

D1 

EB 


4* 


SHR 

BX, 1 


00F6 

D1 

EB 


4* 


SHR 

BX, 1 


00F8 

03 

C3 


4* 


ftDD 

fiX, BX 


00FA 

8E 

DB 


4- 


MOV 

DS, AX 


00FC 

BE 

C0 


4- 


MOV 

ES, AX 


00FE 

E8 

013C 

R 


5 

INIxt: 

CALL 

NEAR PTR TL_INIT_TLD 

^Initialize the TLD 

0101 

0ft 

C0 



5 

OR 

AL, AL ; 

Indicate NG if transporter 

0103 

75 

0ft 




JNZ 

INIxt0 ; 

not enabled with clear latch 

0105 

B8 

4B4F 




MOV 

AX, ’ KO’ ; 

Test value of transporter NAD 

0108 

80 

3E 0003 E 40 



CMP 

TT. TT_NAD,*NADok 


010D 

7E 

03 




JNB 

INIxt 1 


010F 

B8 

474E 



INIxt0: 

MOV 

AX, »GN’ 


0 i le 

ft 3 

0000 

E 


INIxt1; 

MOV 

MND001,AX 

5 Set message accordingly 







LOG 

*MND00 

5 and output the message 

0115 

50 



4 ~ 


PUSH 

AX 


0116 

B0 

01 


4* 


MOV 

AL,*MND00 


0118 

E8 

0000 

E 

4 ~ 


CALL 

DM ERR LOG 


01 IB 

58 



4* 


POP 

AX 







5 

EXIT 

NOINT ; 

Return to caller 

01 1C 

07 



4 ~ 


POP 

ES 


01 ID 

IF 



4 - 


POP 

DS 


01 IE 

CB 



4 “ 


RET 



01 IF 





1 

UTIL_INT_TEST 

«t 

9 

LABEL NEAR 







5 * 

5 

Enter 

here to call the TL 

_INT_DRVR at its primary interrupt 






5 

entry 

point TL_INT_TEST. 

The call will invoke the main loop 






w 

1 

of the interupt driver so 

that the Emulator can be run as a 






* 

subroutine rather than as 

an interrupt driven device routine, 






5 

* 

ENTER 

Dta__Bgn, , Noregs 

5 Set environment 

01 IF 

IE 



4- 


PUSH 

DS 


0120 

06 





PUSH 

ES 


0121 

80 

C8 


4 - 


MOV 

AX, CS 


0123 

BB 

0000 

R 

4. 


MOV 

BX, OFFSET PCS: Dt a. 

_Bgn 

0126 

D1 

EB 


4. 


SHR 

BX, 1 


0128 

D1 

EB 


4 - 


SHR 

BX, 1 


012ft 

D1 

EB 


4* 


SHR 

BX, 1 


012C 

D1 

EB 


4* 


SHR 

BX, 1 


012E 

03 

C3 


4* 


ADD 

AX, BX 


0130 

8E 

D8 


4* 


MOV 

DS, AX 


0132 

8E 

C0 


4 - 


MOV 

ES, AX 


0134 

Fft 





CL I 


5 Disable interrupts 

0135 

E8 

0000 

E 



CALL 

TL_.INT_.TEST 

5 Cal 1 the interrupt driver 

0138 

FB 





ST I 


1 Assure interrupts enabled 
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EXIT 

NO I NT 

0139 

07 

4 - 

POP 

ES 

013A 

IF 

+ 

POP 

DS 

013B 

CB 

4 - 

RET 


013C 


DR 

DEV UTIL 

ENDP 


; Ret urn t o ca11er 


5 

-************************************************************************* 
;Module names TLD initialization <TL~~INIT~-TLD) I 

5 i 

{Version: 2,0 I 

9 l 

5 Last Updates 15 January 1984 I 

9 I 

^Functions The TLD initialization routine is one of the routines I 

; which comprise Emulator initialization. Its task is to i 

; set up transporter memory and the TST, initialize the I 

5 transporter, start transporter interrupts, and start I 

; reception of commands and Name Lookup messages. I 

? I 

{Procedures Program Logic Description, Section 2.8 I 

? I 

;Called by: EI-INIT I 

m | 

9 5 

{Routines calleds TL~DO~~CMND I 

m i 

9 1 

{Inputs None i 

5 l 

{Outputs <AL) = Successful completion indicator I 

5 l 

{Error procedures: None I 

9 * l 

{Written bys R„ B. Talmadge, Computer Technology Ltd I 

5 f 

{Updates: None I 


;*************************************************************************** 
» 

013C TL INIT TLD PROC NEAR 


013C FA 


CL I 


;Disable 8088 interrupts 


013D F 6 06 00SF R 80 
0142 74 04 

0144 BA 024C 
0147 EE 


; The first step is to disable transporter interrupts 

; if interrupts are installed on the board 

* 

9 

TEST EC.EC_TBI,*TBintI 

JZ l'TLgo ;If transporter interrupts 

MOV DX,$DiINT ; installed, disable 

OUT DX,AL ; interrupts 

5 

; Next, the CCB and RR images and all constant data are 

; inserted into transporter memory 

It 

9 

ITLgo: MOV 


0148 BF 0000 E 


DI, OFFSET TTbgn 


;Starting offset of TST entries 
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5 


014B 

BE 

0040 R 


ITLlps 

MOV 

SI,OFFSET SetupT 

5 Starting offset CCB image 

014E 

8 A 

45 03 


MOV 

AL, CDIII. TT OP 

; 0 perat ion code 

0151 

88 

04 



MOV 

CSIII. CC_Cmnd, AL 

5 to CCB image 

0153 

8 A 

45 0S 



MOV 

AL, EDI3.SK 

;Socket number 

0156 

68 

44 04 



MOV 

CSI3.Sock,AL 

5 to CCB image 

0159 

8 B 

45 0A 



MOV 

AX, CDIII. Dsz 

5Now data length in reverse 

015C 

86 

C4 



XCHG 

AL, AH 

5 byte order (as are all two 

015E 

89 

44 08 



MOV 

CSI 3. Dat1,AX 

5 byte quantities for xporter) 

0161 

8 B 

45 06 


5 

MOV 

AX,CDI3.RR 

jjNext the 

0164 

86 

C4 



XCHG 

AL, AH 

; result record 

0166 

89 

44 0S 



MOV 

CSI3.RRA,AX 

5 address 

0169 

8 B 

5D 08 



MOV 

BX,CDI3.Dt1 

5 Then the 

016C 

86 

FB 



XCHG 

BH, BL 

5 Data address 

016E 

89 

5C 06 



MOV 

CSI3.CC_Data, BX 


0171 

86 

FB 


5 

XCHG 

BH, BL 

;Compute user contro 1 

0173 

86 

E0 



XCHG 

AH, AL 

; area length 

0175 

SB 

D 8 



SUB 

BX, AX 


0177 

83 

EB 04 



SUB 

BX,TYPE RRKD 


017A 

88 

5C 0A 



MOV 

CSI3.ConIn,BL 

5 Store into CCB image 

017D 

B9 

000C 


5 

MOV 

CX,TYPE CCBLK 

5 Set size of CCB 

0180 

SB 

5D 04 



MOV 

BX,CDI3.CCB 

5 Fetch address of CCB 

0183 

E 8 

0000 E 



CALL 

TL_DTA_OUT 

^Insert CCB image into xporter 

0186 

8 B 

5D 06 


5 

MOV 

BX,CDI3.RR 

{Initialize result code 

0189 

8 A 

4D 01 



MOV 

CL,CDI3.TT_ST 

5 to be equal to value 

018C 

E 8 

0000 E 



CALL 

TL_BYT„OUT 

5 now in TST entry 

018F 

63 

C7 14 


$ 

ADD 

DI,TYPE TSTE 

5 Posit ion to next TST 

019S 

81 

FF 0000 

E 


CMP 

DI,OFFSET TTend 

* entry and go back 

0196 

7S 

B3 



JB 

ITLlp 

5 to process if not done 





5 

« 

9 

Initialize data area for 

reply to NAD requests 

0198 

SB 

36 0006 

E 

5 

MOV 

SI,TrmNAD.RR 

{Compute location of User 

019C 

83 

C 6 04 



ADD 

SI,TYPE RRKD 

; Control area for TrmNAD 

019F 

8 D 

1 C 



LEA 

BX,CSI3.ALofRP 

5 Posit ion to reply 

01A1 

B9 

0001 



MOV 

CX, 1 

5 length and send 

01A4 

E 8 

0000 E 



CALL 

TL_WRD_OUT 

5 to transporter 

01A7 

8 D 

5C 0S 



LEA 

BX,CSI3„Dstat 

5 Position to disk status 

01AA 

B1 

CF 



MOV 

CL, *SridNAD 

5 and send invalid command 

01 AC 

E 8 

0000 E 



CALL 

TL_BYT__OUT 

; to transporter 





9 

9 

Initialize the transporter and save Emulator NAD 

01AF 

8 B 

IE 0006 

E 

5 

MOV 

BX,VarOP.RR 

;Fetch transporter addresses 

01B3 

8 B 

0E 0004 

E 


MOV 

CX,VarOP. CCB 

; for variable operation CCB 

01B7 

E 8 

0000 E 



CALL 

TL_DO_CMND 

; and go initialize transporter 

01 BA 

As 

0003 E 



MOV 

TT.TT_NAD, AL 

;Save NAD in TST header 

01BD 

AS 

0005 E 



MOV 

BYTE PTR IDrnsg. Src+1, AL ? and NL message image 





9 

a 

9 

Enable 

transporter interrupts if installed and if board 



€ 

t 

I 

i 

c 

f 

i 

€ 

< 

< 

t 

f 

I 

f 

1 

I 

I 

I 

i 

t 

i 
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01C0 

A0 

002F 

R 

01C3 

AS 

80 


01C5 

74 

18 


01C7 

A8 

40 


01C9 

74 

14 


01CB 

E4 

o i 

CL 1 


01CD 

24 

FA 


01CF 

EG 

21 


01D1 

BA 

024E 


01D4 

EE 



01D5 

BA 

024D 


01 D8 

EE 



01D9 

BA 

024F 


01 DC 

EC 



01DD 

24 

28 


01DF 

50 



01E0 

BE 

0000 

E 

01E3 

B0 

01 


01E5 

E8 

0000 

E 

01E8 

BE 

0000 

E 

01EB 

B0 

01 


01ED 

E8 

0000 

E 

01F0 

BE 

0022 

R 

01F3 

BF 

0008 

E 

01 FS 

B9 

000A 


01F9 

FC 



01FA 

F3/ 

A4 


01FC 

B1 

FF 


01FE 

BE 

0000 

E 

0201 

E8 

0000 

E 

0204 

B8 

0010 


0207 

A3 

0002 

E 

020A 

C6 

06 000C R 00 

020F 

58 



0210 

C3 



0211 




0211 





is to run enabled 


ITLp0i 


MOV 

TEST 

JZ 

TEST 

JZ 

IN 

AND 

OUT 

MOV 

OUT 

MOV 

OUT 

MOV 

IN 

AND 


AL,EC.EC_TBI 
AL,*TBintI 
ITLp0 

AL,$TBrenb 
ITL_p0 

AL,$P8£opl 
AL, $P82enb 
$P82opl,AL 
DX, *Er.INT 
DX, AL 
DX,$C1INT 
DX, AL 
DX,$StINT 
AL, DX 
AL,$TRenb+$TRl 


at 


;Fetch transporter run type 

;Don’t enable if not installed 

; or if not to run enabled 

Fetch 8259A interrupt 
and enable the level 
for the transporter 
Fetch port number 

and send the enable 
Assure the interrupt 
latch is clear 
Now fetch status 
of transporter 


Start reception of messages 
PUSH AX 

MOV SI,OFFSET RevICS 

MOV AL,$False 

CALL TL_SET_RECV 

MOV SI,OFFSET RcvNLM 

MOV AL,$False 

CALL TL SET RECV 


;Save transporter status 

;Set offset TST entry ICS receive 

n — 

M 

9 


set for no ORB, 
request start of reception 


5 Set offset TST entry NLM receive 
$ set for no ORB, 

n 

9 


request start of reception 


Send out a ’Hello’ Name Lookup message, then reset the 
NL message image to send Identification messages 


MOV 
MOV 
MOV 
CLD 

REP MOVSB 


SI,OFFSET EC.Serv 
DI, OFFSET IDrnsg. NL_Name 
CX,$$Serv 


;Fetch Emulator name 
; from ECT to 
; the NL message image 


MOV CL,*A11NAD 

MOV SI, OFFSET I Drnsg 

CALL TL_SEND_NLM 

MOV AX,$NLIdn 

MOV IDrnsg.Mgt,AX 


MOV BYTE PTR EC.Cold,*True 
POP AX 

RET 


;Use broadcast NAD 
; and NL message image 
;Send ’Hello’ and start 
; NL message reception 

;Reset for Iden message 

;Indicate cold start over 
5 Fetch transporter status 
:And that’s all there is to do 


TL INIT TLD ENDP 


PC CODE ENDS 


fr***************************************-* •*•**■■**■*•*■*•***■***••**•**•* •*•**■*■* 


c 

f 

I 

f 

€ 

f 

f 

( 

€ 

C 

I 

f 

I 

I 

f 

f 

i 

f 

< 

i 

« 


f 
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0000 

0000 


0000 

0003 

0006 

0009 

000C 

000E 

0010 
0017 
00 IE 
0025 


00£C 

0031 

0034 

0035 

0035 


This is the entry point for the first time initialisation I 
procedure. This code is contained in the special segment I 
PC_INIT, which is deleted by PC DOS after return from driver I 
initialization. I 


;*********************************************************************** 
M 

PC^INIT SEGMENT MEMORY ’LAST’ 

5 

El ONE PROG NEAR 


Set code segment value into UTIL_HOOK jump table 
arid offsets into DDkeys table for El-IN IT 


BE 0015 R 





MOV 

SI,OFFSET UTIL_CS 

5 First 1ocation 


BF 0026 R 





MOV 

DI,OFFSET UTIL HEND 

;End location 


2E; 8C 0C 





EI_ins s MOV 

CS:CSI3,CS 

$ Insert segment 

va 1 ue 

S3 C6 05 





ADD 

SI,((TYPE UTIL CS) + OFFSET UTIL CS - OFFSET UTIL HOOK 

3B F7 





CMP 

SI, DI 



7C F6 





JL 

EI_ins 

5 Back if not done 

£E: C7 06 

0026 

R 

0000 

R 

MOV 

CS:DDkeys.KY_EC, OFFSET 1 

PCS:EC 

;ECT 

£E: C7 06 

0028 

R 

01 IF 

R 

MOV 

CS:DDkeys.KY_EXT, OFFSET 

UTIL_INT_TEST 

;Call HW drvr 

£E: C7 06 

002A 

R 

0000 

E 

MOV 

CS:DDkeys.KY_INT, OFFSET 

TL__INT_DRVR 

;Int Drvr 

2E: C7 06 

002C 

R 

0000 

E 

MOV 

CS:DDkeys.KYJDTM, OFFSET 

TL__INT_DTME 

;Timer int 


9 

5 Move end location into request header for return 

s information to DOS 


5 


C7 

47 

0E 0000 R 

MOV 

WORD 

PTR 

CBX3.RQrtn, OFFSET 

PCS:EI_ONE 

SC 

4F 

10 

MOV 

WORD 

PTR 

2CBX3.RQrtn, CS 


C3 


9 

RET 



;Ret urn 

from whence we came 



9 

El ONE 

ENDP 






5 

PC INIT ENDS 


; *********************************************************************** 
5 End of the Assembly housekeeping goes here I 

“ ************************************************************************ 


5 

* 

9 

•» 

9 


PUBLIC EC 
PUBLIC DtaJBgn 

END PC START 


; Emu 1 at or Cornmun i cat i on table 
;St art of Emulator Data area 
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Symbol 


Macros: 


Name 


Length 


COMPARE. . 000F 

DISABLE. 0003 

ENABLE .. 0003 

ENTER.. 0013 

EXIT .. 0007 

EYE. .. 0001 

FILLIT. 0011 

FIV. 0002 

GEN_START. 0002 

LOG. .. 0005 

MOVEB. ...... 000F 

MOVEONE. . 000E 

RESTORE. . 0001 

SCANS. .. 0012 

SELEXIT. . 0002 

SELREST. . 000D 

SELSAVE. 0010 

SIV.- 0003 

START. . . 0010 

STATUS ........ . 0001 

TENTER. 0003 

TEX IT. .. . 0002 

TIME .............. 0001 

TRACE. 0009 


Structures and records: 


Name Width # fields 

Shift Width Mask 

CCBLK. 000C 0009 

CC_CMND. 0000 

RRA. 0002 

SOCK. 0004 

CC_DATA. 0006 

DATL .. 0008 

CONLN. 000ft 

DHOST. 000B 

CRQH. 0008 0005 

QST.. 0000 

DSC. ... 0001 

END.... 0002 

TOP... 0004 

BOT.. 0006 

DDH.. 0012 0005 

NDEV. 0000 

ATTR . 0004 

STRTN. 0006 

DVRTN. 0008 

DVNME. .. 000A 

ECT... 0040 001A 

I DEN.. 0000 


Initial 








































C ( 
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« < 

| EC_DAT.. .. I 

EC DRV. 

EC~FLG .. 000A 

| TRCE. 000B f 

COLD .. 000C 

EC_TRM. 000D 

{ MAX. .. 000E 4 

NEXT. 0010 

DIR. .. 00 IE 

| NAM. 001A | 

SERV. 00££ 

EC 

( I 

DsPCSCHi .LST Canceled by operator 

I * 

i t 

« t 

f i 

« « 

i t 

« f 

i i 

€ f 

I € 

I I 

I f 

t « 

« I 

C I 
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f 

t 

c 
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< 

f 

f 

1 

I 

« 

i 

1 
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I 

< 

I 
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t 

i 
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PAGE 60,138 

*********************************************************************** 

Fi lename is PCSCHSA.ASM I 

*********************************************************************** 
This file is the first of two which contain the code for all of the 
routines described in Sections £.1 through £.7 of the Program Logic 
Description, GMNINET PCShare Disk Server Emulator, Version £« 0, dated 
7 November 1963. The file also contains allocation statements for 
data structures managed by the Transporter Logical Device. 
*********************************************************************** 

END IF 
5 

; **************************************************************************** 
5 

GEN_START <TL> ;TLD structures 



4- 


. LALL 



4* 


ENDIF 



4* 


END IF 



4* 


ENDIF 



4- 


IFIDN 

(TRACE),(TRACE) 

0001 

4* 

TRACE* 

= 

1 


4* 


ENDIF 



4* 


ENDIF 



4- 


ENDIF 



4* 


ENDIF 



4* 


ENDIF 



4- 


ENDIF 



4- 


ENDIF 



4- 


ENDIF 



4* 


IFIDN 

(DEBUG),(DEBUG) 

0001 

4- 

DEBUG* 

= 

1 


4 - 


ENDIF 



4 * 


ENDIF 



C+ 


INCLUDE 

PCSTRUC.CRV 


C+ 

C+ 

C+ 

C+ 

C+ 

C+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 


*****************************************************************-***-*** 
; Filename is PCSTRUC.CRV I 

; ******************************************************************************* 
This file contains all structure definitions for the implementation I 
of the Corvus OMNINET PCShare Disk Server Emulator. It is included i 
in each of the assembly files when the START macro is invoked. The I 
selectors specified with that macro invocation cause the associated ! 
structure definitions to be included in the assembly. Any set of 1 

definitions can be included with an appropriate set of selectors. I 

*************************************************************************** 


Version: 2.0 I 

I 

Last Update: 14 January 1984 I 

5 I 

.*********************************************************************** 
END IF 




i 

« 

t 

< 

< 

< 

i 

f 

« 

( 

* 

I 

f 

I 

f 

€ 

€ 

f 

I 

i 

I 
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0000 

0001 

0000 

0001 

0080 

0001 


00c! 1 
0020 

000B 

0020 

0001 

0005 

00FA 


C+ 

C+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 


END IF 


Emulator Resident Data Structures 


Universal value definitions 


EQU 

EQU 

EQU 

EQU 

EQU 

vl EQU 


$True 
$False 
$Zero 
$One 
$SKnum 
$Vir_Dr 
5 

5 “ 

5 
5 
5 

a 

*PB2opl EQU 
*P8£op0 EQU 
5 

$PB£Ris EQU 
*PB2Eoi EQU 
•PB2TML EQU 
•P82EML EQU 
*P82enb EQU 


0 

1 

0 

1 

96 

1 


5 Usually indicates OK or normal 
5 Usually indicates NG or unusual 
5 What is there to say 
5 about these? 

5 Number' of internal stack entries 
5 Value for Virtual Drive 1 


B259A PIC usage values 

References Intel 60S6 User’s Manual 


£ 1H 
2®H 

0BH 

£0H 

1 

4+*PB2TML 

0FFH-*P8£EML 


5 Port for 0CW1 commands 
5 Port for OCW£, 0CW3 commands 

;Read Interrupt Service register 
5 Simple end of interrupt 
I Timer interrupt level bi t 
5 Transporter and timer levels 
5 Enable xporter and timer 


St ruct ure Name s Emu 1 at or Cornmun i cat i on Table 
References Program Logic description, Section 1.4 


Associated values and flags 



0080 

c+ 

$Cons 

EQU 

80H 

5 Write messages to console 


0040 

c+ 

SConsPT 

EQU 

40H 

• Prompt for conso1e at initialization 

« 

0000 

c+ 

SAtrNrm 

EQU 

0 

§ Standard attributes of Emulator files 

as 

000A 

c+ 

*TickMX 

EQU 

10 

; Default timer tick refresh count 



c+ 

5 




= 

0080 

c+ 

*TBintI 

EQU 

80H 

jTransporter interrupts installed 


0040 

c+ 

$TBrenb 

EQU 

40H 

5 Transporter to run enab1ed 

* 

0020 

c+ 

♦TBrtck 

EQU 

20H 

{Transporter to run off timer tick 


00DF 

c+ 

*TBnotk 

EQU 

0FFH—*TBrtck 

5 Mask to clear timer tick on 


0010 

c+ 

$TBinit 

EQU 

10H 

5 Prompt for interrupts at init 

- 

0004 

c+ 

*TRChrd 

EQU 

4 

5 Trace out put t p hard disk 

ss 

0002 

c+ 

STRCcon 

EQU 

2 

;Trace output to console 

ps: 

0001 

c+ 

STRCdsk 

EQU 

1 

5 Trace output to disk 



c+ 

5 






C"J“ 

5 

Intern 

upt vector numbers 




c+ 

5 




« 

000A 

c+ 

«CallEM 

EQU 

0AH 

5 Em u1at or interr upt 

PS 

001B 

c+ 

$CallCB 

EQU 

1BH 

§ Cent rol^break has occurred 

ss 

00 1C 

c+ 

$Cal1TK 

EQU 

1CH 

; Timer interrupt appendage 


€ 

i 

l 

€ 

€ 

* 

f 

C 

€ 

€ 

I 

€ 

f 

I 

I 

I 

< 

i 

« 

€ 

€ 

I 




The IBM Personal Computer MACRO Assembler 01-15-04 


PAGE 


1-3 


= 0021 

= 0023 
= 0034 
= 0066 
= 0067 
= 0001 

- 00CD 
= 0001 


= 0000 
= 0000 
= 0004 
= 000A 


0000 

50 43 
45 32 

53 

48 

41 

52 

0008 

43 





0009 

03 





000A 

40 





000B 

01 





000C 

01 





0000 

01 





000E 

0064 





0010 

0000 





0012 

50 43 
45 20 


48 

41 

52 

001A 

50 43 
45 20 

53 

48 

41 

52 

0022 

0A 

C 





20 

1 

002C 00 

002D 00 

002E 00 

002F C0 
0030 0A 
0031 0A 
0032 01 

0033 01 

0034 0000 

0036 0000 

0038 0000 

003A 0000 

003C 0000 

003E 0000 

0040 


C+ 

$CalIDS 

EQU 

21H 

5 DOS function ca11 



C+ 

*Ca11CA 

EQU 

23H 

;ControInbreak appendage 



c+ 

*CallKR 

EQU 

34H 

;Get s 1oeation In~D0S f1ag 



c+ 

$Cal1DI 

EQU 

66H 

5 DOS intercept 



c+ 

$Cal1TM 

EQU 

67H 

jjTirner appendage recall 



c+ 

$CallTP 

EQU 

1 

;Trap interrupt 



c+ 

5 






c+ 

*INT* 

EQU 

0CDH 

;Int errupt inst ruction code 



c+ 

*TrapFL 

EQU 

1 

5 Posit ion of trap flag in AH 



c+ 

M 

9 






c+ 

m 

9 

Field 

lengths 




c+ 

5 






c+ 

$$D i r 

EQU 

8 




c+ 

$$Nam 

EQU 

8 




c+ 

$$Next 

EQU 

4 




c+ 

$tSei“v 

EQU 

10 




c+ 

9 






c+ 

* 

9 






c+ 

ECT 

STRUC 





c+ 

Iden 

DB 

*PCSHARE2’ 

;Identifier of the version 



c+ 







c+ 

EC_Dat 

DB 

’ C’ 

;Drive for Emulator files (character) 


c+ 

EC_Drv 

DB 

3 

;Same drive numeric I NEW FIELD 1 



c+ 

EC_F1g 

DB 

$ConsPT 

;Flag for log output to console 



c+ 

Tree 

DB 

$False 

;Trace active switch 1 NEW FIELD) 



c+ 

Cold 

DB 

$False 

;Cold start completed 1 NEW FIELD 1 



c+ 

EC_Trm 

DB 

IFalse 

;Emulator terminated 1 NEW FIELD 1 



c+ 

Max 

DW 

100 

5 Maximum number records in log file 


c+ 

Next 

DW 

0 

;;RRN for next log record 



c+ 

Dir 

DB 

’PCSHARE * 

; Name of directory for Emulator files 

c+ 







c+ 

Nam 

DB 

’PCSHARE ’ 

; Fi 1 enarne for Emulator files 



c+ 







c+ 

Serv 

DB 

$$Serv DUP(’ 

’) ;Emulator name as a disk server 



c+ 







c+ 







c+ 







c+ 

EC AtrU 

DB 

$At rNrrn 

;Attributes of User area file 

IN 

FI 

c+ 

EC_AtrS 

DB 

$AtrNrrn 

;Attributes of System area files 

IE 

I i 

c+ 

EC__AtrL 

DB 

$ AtrNrrn 

;Attributes of Log file 

IN 

El 

c+ 

EC_TBI 

DB 

$TBint I+$TBrenb ; Transporter int flags 

1 

L. 1 

c+ 

TLtrnck 

DB 

$TickMX 

;Current timer tick count 

1 

D 1 

c+ 

TLtmrs 

DB 

$Tick.MX 

;Value to reset timer tick count 

1 

S 1 

c+ 

KEEPout 

DB 

$False 

;DQS has been entered flag 

1 

1 

c+ 

INTdfr 

DB 

$False 

;Deferred interrupt flag 

1 

i 

c+ 

DOSdkO 

DW 

0 

5 HoIds location of DOS 

1 

1 

c+ 

DOSdkS 

DW 

0 

5 Critical section (In~D0S> Flag 

1 

I 

c+ 

DDRH 

DW 

0 

;Holds location of request header 

when 

c+ 

DDRHS 

DW 

0 

5 Device Driver cal led 1 NEW FIELD 1 

c+ 

TckO 

DW 

0 

;Holds location of timer' tick int 

when 

c+ 

TekS 

DW 

0 

; no transporter ints 1 NEW FIELD I 

c+ 

ECT 

ENDS 





c+ 

M 

9 






c+ 


— 

— 

—--------------- 

—— 

— 

c+ 

m 

9 

Structure Name 5 Log 

Request Block 
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C + 

II 

9 

References Program Logic Description, Section 4« 27 



C + 

9 

— 

! 

1 

l 

i 

1 

! 

I 

I 

! 

! 

! 

I 

1 

1 

1 

\ 

1 

s 

! 

i 

i 

I 

i 

! 

! 

1 

! 

1 

i 

! 

i 

I 

f 

1 

1 

1 

s 

i 

1 

i 

1 

i 

i 

! 

i 

i 

! 

! 

i 

i 

! 

i 

! 

1 

! 



C + 

m 

9 





c+ 

N 

9 

Associated values 



c+ 

5 



SB 

0066 

c+ 

*MPXMSG 

EQU 

102 ;Maximum message length 



c+ 

5 





c+ 

5 

Log message numbers 



c+ 

• 

9 



ss 

0001 

C+ 

$MND00 

EQU 

1 ;Initialization message 

ss 

0002 

C+ 

$MNT00 

EQU 

o 

CL 

SB 

0003 

C+ 

*MNT01 

EQU 

3 

as 

0004 

C+ 

*MNT02 

EQU 

4 

ss: 

0005 

C+ 

*MNT03 

EQU 

5 

ss 

0006 

C+ 

SMNT04 

EQU 

6 

SB 

0007 

C+ 

*MNT05 

EQU 

7 

SS 

0008 

c+ 

*MNT06 

EQU 

a 

SS 

0009 

C+ 

*MND01 

EQU 

9 

SS 

000 A 

C+ 

*MND02 

EQU 

10 

SB 

000B 

c+ 

*MND03 

EQU 

11 

SS 

000C 

c+ 

U.MND04 

EQU 

12 

ss 

000 D 

c+ 

*MNT07 

EQU 

13 

ss 

000E 

c+ 

*MNT08 

EQU 

14 

ss 

000 F 

c+ 

$MNT09 

EQU 

15 

ss 

0010 

c+ 

SMNT010 

EQU 

16 

ss 

0011 

c+ 

$MND05 

EQU 

17 

ss 

0012 

c+ 

*MNT011 

EQU 

18 

ss 

0013 

c+ 

*MND06 

EQU 

19 5 ORB missing 

ss 

0014 

c+ 

$MNT012 

EQU 

20 ; Bad pipes tables 



c+ 

5 





c+ 

LRB 

STRUC 


0000 00 

c+ 

Cde 

DB 

0 5 Nodule ID code 

0001 00 

c+ 

LR_Len 

DB 

0 5 Length of the message string 

0002 

c+ 

LRB 

ENDS 




c+ 

5 





c+ 

IF <TL* 

OR Cl* 

OR DM* OR LC*> 



c+ 

5 

-- - 

i 

1 

i 

I 

! 

1 

1 

f 

1 

! 

i 

! 

I 

1 

I 

1 

! 

i 

i 

1 

1 

i 

i 

j 

1 

i 

i 

i 

1 

1 

I 

i 

i 

i 

1 

\ 

1 

i 

1 

i 

! 

i 

i 

i 

1 

\ 

\ 

I 

! 

i 

I 

1 

1 

i 



c+ 

M 

9 

Structure Names Operation Request Block 



c+ 

p. t 

M 

9 

References Program Logic Description, Section 2.2.1 



c+ 

9 





c+ 

9 





c+ 

9 

Associated completion codes 



c+ 

n 

9 



ss 

00FF 

c+ 

*OPi np 

EQU 

0FFH 5 Operation in progress 

ss 

0000 

c+ 

$OPcne 

EQU 

0 ; Completed without error 

ss 

0001 

c+ 

*OPinl 

EQU 

1 ;Completed, incorrect length 

ss 

0002 

c+ 

SOPtrb 

EQU 

2 ; Terminated, invalid ORB 

ss 

0003 

c+ 

*OPtto 

EQU 

3 ; Terminated, receive time-out 

ss 

0004 

c+ 

*OPtdf 

EQU 

4 ; Terminated, invalid data format 

ss 

0005 

c+ 

*OPtng 

EQU 

5 ; Terminated, transmission failure 

ss 

0006 

c+ 

SOPttf 

EQU 

6 ; Terminated, transporter failure 

ss 

0007 

c+ 

SOPtcl 

EQU 

7 ; Terminated, control length mismatch 



c+ 

m 

9 





c+ 

M 

9 

The structure itself 



c+ 

9 
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C + 

ORB 

STRUC 


0000 FF 

c+ 

cc 

DB 

$OPinp 

0001 00 

c+ 

OP 

DB 

0 

0002 0000 

C+ 

SzB 

DW 

0 

0004 0000 

C+ 

RB Data 

DW 

0 

0006 0000 

C+ 

RB Datas DW 

0 

0008 

C+ 

ORB 

ENDS 



c+ 

5 




c+ 

END IF 




c+ 

m 

9 




c+ 

IF (DR* 

OR TL$ 

OR LC$) 


c+ 

9 " 

— 

— 


c+ 

9 


Trans pi 


c+ 

9 

— 

— 


c+ 

•fe 

9 



= 0100 

c+ 

♦InitTA 

EQU 

100H 

= 7FFF 

c+ 

$MaxDly 

EQU 

7FFFH 

= 0010 

c+ 

*MaxRty 

EQU 

10H 

= 000 A 

c+ 

$MaxWte 

EQU 

10 

= 01FE 

c+ 

fProID 

EQU 

01FEH 

= 00CF 

c+ 

$SndNAD 

EQU 

0CFH 

- 0211 

c+ 

*MaxTBD 

EQU 

529 


c+ 

9 




c+ 

U MM NM M*M MM. MM. M, 

9 

— 



c+ 

c+ 

9 


Transport i 


c+ 

9 

« 

9 



■ 00B0 

c+ 

SSokTD 

EQU 

0B0H 

= 0080 

c+ 

*Sok.TM 

EQU 

80H 

= 0080 

c+ 

TSokRM 

EQU 

80H 

= 00B0 

c+ 

fSokRC 

EQU 

0B0H 

= 00A0 

c+ 

SSokRL 

EQU 

0A0H 


0000 

0001 

0002 

0003 

0010 

00FF 


0001 

00FF 


000A 


;Comp1etion Code 
;Operational parameter 
;Number of bytes of data 
;Offset of data 

;Reserved for segment address 


;Initial transporter CCB address 
;Max loop count for operation complete 
;Maximum number operation retries 
5 Maximum wait time in seconds 
;protocol identifier 
;Invalid command for NAD reply 
;Longest data transfer <w/o disk stat) 


Transporter Socket Usage Conventions 


C+ 

C+ 

C+ 

C+ 

C+ 

C+ 

C+ 

C+ 

C+ 

C+ 

C+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 


? 

5 

5 

H 

9 

5 

9 

5 

*NLHi 

$NLAny 

*NLWho 

$NLWhr 

$NLIdn 

$NLBye 

•I 

9 

5 

u 

*NLDsk 

*NLDny 

9 


5 To transmit data 
5 To transmit an NLM 
5 To receive an NLM 

;To receive initial command sequence 
5 To receive remainder of long command 


Structure Names Name Lookup Message 

References Program Logic Description, Section £.2.3 


Associated message type codes (most significant byte) 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


10H 

0FFH 


?Hello 

5 Any disk server (old protoco 1 ) 
5 Who are you? 

5 Where are you? 

51 dentification 
;Goodbye 


Associated device types of interest to Emulator 


EQU 

EQU 


1 

0FFH 


5 Disk Server 
;A11 Devices 


5 Associated Name Length 

9 

*NameLN EQU 10 5 Needed because STRUG is weak 




The IBM Personal Computer MACRO Assembler 01-15-84 


PAGE 


1-6 


I 

« 

f 

€ 

t 

« 

f 

f 

I 

1 

1 

C 

« 

I 

I 

« 

I 

f 

i 

« 

« 

€ 


c+ 

c+ 

c+ 

c+ 


The structure itself (arithmetic 
for transporter memory storage) 


reverses byte order 






C+ 

NLM 

STRUC 



0000 

FE01 



C+ 

Pid 

DW 

*ProID/256 + 

£56* <$ProID PND 0FFH) 

0002 

0000 



C+ 

Mgt 

DW 

*NLh i 

^Message Type 

0004 

0000 



C+ 

Src 

DW 

0 

^Station Number' of send' 

0006 

0100 



C+ 

Dev 

DW 

256*$NLDsk 

;Device Type 

0008 

50 43 

53 

48 41 52 

C+ 

NL_Name 

DB 

’PCSHARE ’ 

5 Device or user name 


45 20 

20 

20 

C+ 





0012 




C+ 

NLM 

ENDS 




0000 0000 
0002 0000 
0004 


0000 

0002 

0003 


0000 

0001 

0002 

0003 

0004 


0000 

0001 

0002 

0003 


0000 

00 


00 

01 

00 

00 


01 

00 

00 

00 


C + 
C + 
C + 
C + 
C + 
C + 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 


Structure Name: Receive ICS control area 

Reference: Corvus OMNINET Programrnev'’ Guide 


RRRCV STRUC 
Lofcm DW 
ELofRp DW 
RRRCV ENDS 


0 

0 


;length of the command 
;Expected reply length 


being sent 
(w/o status) 


Structure Name: Send Reply control area 
Reference: Corvus OMNINET Programmer’ Guide 


RRSND STRUC 
ALofRp DW 
Dstat DB 
RRSND ENDS 


0 


;Actual length of reply (inc1 status) 
;Disk status 


Struct ure 
Reference 


Name: Transporter Status Table Header 

: Program Logic description. Section 2. 


TSTH 

Int 

TT_CI 

NE 

TT_NAD 

TSTH 


STRUC 

DB 

DB 

DB 

DB 

ENDS 


0 

$False 


;Interrupt depth indicator 
5 Command Interpreter invocation flag 
;Number of entries in TST 
;Network address of Emulator 


Structure Name: Transporter Status Table Entry 
Reference: Program Logic Description, Section 2.3 


TSTE 

PN 

TT_ST 

SK 

TT OP 


STRUC 

DB 

DB 

DB 

DB 


$False 

0 

0 

0 


;ORB pending flag 
;Stat us code from result record 
;Socket to be used 

;Transporter commmand I NEW USAGE 


€ 

« 

c 

i 

c 

i 

i 

I 

c 

€ 

I 

€ 

I 

f 

I 

I 

C 

€ 

€ 

« 

€ 

c 
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0004 

0000 

C+ 

CCB 

DW 

0 

5 Transporter address of the CCB 

0006 

0000 

C+ 

RR 

DW 

0 

;Transporter address of result record 

0008 

0000 

C+ 

Dt 1 

DW 

0 

5 Transporter address of data area 

000A 

0000 

C+ 

Dsz 

DW 

0 

;Length of data area in bytes 

000C 

0000 

c+ 

Isr 

DW 

0 

;Offset address of int service routine 

000E 

0000 

C+ 

Isrs 

DW 

0 

5 Reserved for segment address 

0010 

0000 

C+ 

TT_Orb 

DW 

0 

;Offset address of pending ORB 

00 1£ 

0000 

c+ 

TT_Orbs 

DW 

0 

5 Reserved for segment address 

0014 


c+ 

TSTE 

ENDS 





c+ 

5 






c+ 

END IF 






c+ 

5 






c+ 

c+ 

c+ 

IF <TL* 

or LC$) 





9 

5 

St ructure Name s 

Transporter Status Table Local Command entry I 



c+ 

c+ 

c+ 

5 

References Program Logic Description, Section 8.3 1 



5 

5 






c+ 

« 

9 

ftssociat ed driver 

communication flag va1ues 



c+ 

5 




— 


c+ 

sfcLCnop 

EQU 

$False 

5 No operation indication 

= 


c+ 

$LCopn 

EQU 

$True 

5 Operation in progress indication 

= 00FF 

c+ 

*LCabt 

EQU 

0FFH 

$’Operation aborted’ end indication 

= 0000 

c+ 

*LCaok 

EQU 

0 

5 ’ftl1 ok* end indication 



c+ 

* 

9 






c+ 

» 

9 

Asociated data values 



c+ 

m 

9 




2= 


c+ 

$LCrnaxL 

EQU 

SMaxTBD 

;Longest data transfer allowed 



c+ 

5 






c+ 

TSTLE 

STRUC 



0000 

00 

c+ 

LE CC 

DB 

0 

;RB.CC or RQ.USE field 

0001 

00 

c+ 

LE_OP 

DB 

0 

SRB.OP field when serving as ORB 

000£ 

0000 

c+ 

LE__Len 

DW 

0 

; Length in bytes of remaining data 

0004 

0000 

c+ 

T rm 

DW 

0 

5 Offset from which to fetch data 

0006 

0000 

c+ 

T rms 

DW 

0 

5 Segment address of data 

0008 

0000 

c+ 

Rev 

DW 

0 

? Offset to send reply 

000A 

0000 

c+ 

Revs 

DW 

0 

5 Segment address for reply 

000C 

0000 

c+ 

LE_Isr 

DW 

0 

5 Offset of interrupt service routine 

000E 

0000 

c+ 

LE Isrs 

DW 

0 

5 Resderved for segment address ISR 

0010 

0000 

c+ 

LE_BP 

DW 

0 

5 Stack segment offset of inout registers 

001£ 

FFFF 

c+ 


DW 

0FFFFH 

; Reserved 

0014 


c+ 

TSTLE 

ENDS 





c+ 

5 






c+ 

5 

— 

— 

---•—---—--- 


C+ ; Structure Name: Command Request Queue Entry I 

C+ ; Reference: Program Logic Specification, Section £.5 I 


W-r ,- 

C+ ; 

C+ ; Associated usage values 


0080 

c*+* 

C“fr* 

$RQUseE 

EQU 

80H 

5 Entry in queue 


0040 

c+ 

HiRQUseR 

EQU 

40H 

;Request received for 

command data 

00£0 

c*+* 

$RQUseL 

EQU 

£0H 

? Loca1 command 


0010 

c* 

ifcRQUsel 

EQU 

10H 

;Internally generated 

command 


G+ 

5 
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0004 


0000 00 
0001 00 
0002 0000 


0004 


0000 


04 Z 


C+ $RQCsze 
C+ ; 

C+ • 

C+ ; 

C+ CRQE 
C+ Use 
C+ NAD 
C+ Leri 
C+ Cmnd 
C+ 

C+ 

c+ 

C+ CRQE 


;Number of command bytes enqueued 


The structure itself 


STRUC 

DB 

DB 

DW 

DB 


$RQCsze Dup(0) 


jUsage flags 

{Network Address of requestor 
{Length in bytes of expected reply 
{First four command bytes 


ENDS 


0000 

0001 

00FF 

0000 


0000 00 
0001 00 
0002 0000 
0004 0000 

0006 0000 
0008 


0003 

0000 


0000 10 
0001 00 
0002 02 C 


C+ ENDIF 
C+ { 

C+ IF <DR* 

C+ {- 

C+ { 

C+ { 

c+ * 

C+ { 

C+ { 

C+ $RQmt 
C+ $RQer.t 
C+ $RQful 
C+ { 

C+ $RQdse 
C+ { 

C+ CRQH 
C+ Qst 
C+ Dsc 
C+ End 
C+ Top 
C+ Bot 
C+ CRQH 
C+ ,■ 

C+ ENDIF 
C+ { 

C+ IF TL$ 

C+ 5- 

C+ { 

C+ { 

C+ {- 

C+ { 

C+ { 

C+ ; 

C+ *MTAdd 
C+ SMTDel 
C+ { 

C+ NLMT 
C+ MT„Use 
C+ MT NAD 


OR TL$) 

Structure Name: Command Request Queue Header 
Reference: Program Logic Description, Section £ 


Associated queue status indicator values 


0 

1 

0FFH 


STRUC 

DB 

DB 

DW 

DW 

DW 

ENDS 


$RQmt 

0 

0 

0 

0 


{Queue is empty 

{Queue has entries but is not full 
{Queue is full 

{Disk status error flag bit 


{Queue status indicator 
{Current disk status code 
{Offset address following CRQ 
{Offset address of head entry 
{Offset address of tail entry 


Structure Name : Name Lookup Message Table 
Reference: Program Logic Description, Section 2.7 


Associat ed command modifiers 


STRUC 

DB 

DB 

DB 


$RQUseI 

0 

2 DUP(0FFH) 


{AddActive command 
{De1et eActive command 


{Specifies internal command 
{NAD of sender I NEW FIELD I 
{Unused part of parameter block 


f 
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FF C+ 

1 C+ 

C+ 


0004 

34 


C.+ 

Opc 

DB 

34H 

;Internal is always hex 34 

0005 

00 


c+ 

MT_Mod 

DB 

0 

;Will be set to command modifier 

0008 

0A L 


c+ 

MT_Narne 

DB 

10 DUP(’ 

’ ) 5 Device or user name 



20 

c+ 







1 

c+ 








c+ 





0010 

00 


c+ 

MT_Src 

DB 

0 

5 Stat ion number of sender 

0011 

00 


c+ 

MT__Dev 

DB 

0 

5 Device type of sender 

0012 

04 C 


c+ 

Rsvd 

DB 

4 DUP <’ 

’) ;Four byte user area 



20 

c+ 







1 

c+ 








c+ 





0016 



c+ 

NLMT 

ENDS 






c+ 

m 

9 







c+ 

END IF 







c+ 

» 

9 







c+ 

p x 

IF <DR* 

OR TL* 

OR LC$> 





c+ 

5 

m 

9 

T ran©port er 

structures and associated values 




c+ 

no- 

5 

References Corvus OMNINET Programmer’s Guide 




c+ 

9 

M 

9 







c+ 

a 

9 

Transporter Command Control Block 




c+ 

a 

9 







c+ 

CCBLK 

STRUC 



0000 

00 


c+ 

CC_Cmnd 

DB 

0 

;Command 

0001 

00 


c+ 


DB 

0 

5 fi 11 for high address byte 

0002 

0000 


c+ 

RRA 

DW 

0 

;address Result Record 

0004 

00 


c+ 

Sock 

DB 

0 

5 socket to use 

0005 

00 


c+ 


DB 

0 

;fill for high address byte 

0006 

0000 


c+ 

CCJData 

DW 

0 

5 Data address 

0008 

0000 


c+ 

Dat 1 

DW 

0 

$Data length 

000 A 

00 


c+ 

Con 1 n 

DB 

0 

;Control length 

000B 

00 


c+ 

DHost 

DB 

0 

5 Destination host (if write) 

000C 



c+ 

CCBLK 

ENDS 






c+ 

a 

9 







c+ 

a 

9 

Transporter Result Record structure 




c+ 

9 







c+ 

RRKD 

STRUC 



0000 

FF 


c+ 

RCode 

DB 

0FFH 

5 Ret urn Code 

0001 

00 


c+ 

SHost 

DB 

0 

5 Source Host (if read, 0 write) 

0002 

0000 


c+ 

Rcvlen 

DW 

0 

fLength data received (if read) 

0004 



c+ 

RRKD 

ENDS 






c+ 

5 







c+ 

a 

9 

Transporter port 

definitions 




c+ 

a 

9 




= 0249 


c+ 

$RdRAM 

EQU 

249H 

;To read without incrementing counter' 

= 024B 


c+ 

SRdRAMI 

EQU 

24BH 

5 To read and increment counter 

= 0248 



c+ 

$RdStat 

EQU 

248H 

5 To read status 




c+ 

* 

9 




= 0248 



c+ 

$WrCtrH 

EQU 

248H 

5 To set high byte of counter 

* 024A 


c+ 

$WrCtrL 

EQU 

24AH 

|To set low byte of counter 



1 
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Assembler 01- 
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i 

• 







c 

f 


0£4B 

C+ 

$WrRAM 

EQl) 

24BH ;To write data and increment counter 

1 




C+ 

It 

9 





= 

0£49 

C+ 

$WrSt be 

EQU 

249H ;To strobe command address 


1 



C+ 

? 



1 

1 

SK 

0£4C 

C+ 

*DiINT 

EQU 

24CH 5 To disable (disarm) interrupts 



— 

0£4D 

C+ 

$C1INT 

EQU 

24DH ;To clear interrupt latch 


* 

SB 

0£4E 

c+ 

*EnINT 

EQU 

24EH ;To enable (arm) interrupts 

g 

• 

~ 

0£4F 

C+ 

$StINT 

EQU 

24FH ;To read interrupt status 





C+ 

5 




1 



C+ 

M 

1 

Transp 

nrter Status Flags 

$ 

i 



C+ 

It 

9 





ss 

0080 

c+ 

$TRedy 

EQU 

80H ;Transporter ready 


1 

B= 

00£0 

c+ 

STRenb 

EQU 

20H ;Transporter interrupts enabled 

i 

i. 

SB 

0010 

c+ 

*TRpr.d 

EQU 

10H ;Transporter interrupt pending 

I 


- 

0008 

c+ 

*TRlat 

EQU 

8 ;Interrupt latch 


#■ 



c+ 

N 

5 



f 

w 



c+ 

m 

9 

Transporter command codes 





c+ 

5 




f 

= 

0040 

c+ 

$Serid 

EQU 

40H ;Send message 

f 


zz 

00F0 

c+ 

$Setup 

EQU 

0F0H ; Set up to receive message 

1 


SB 

0010 

c+ 

$EndRcv 

EQU 

10H ;End receive if no message 


n 

sb 

00£0 

c+ 

*Ir.itT 

EQU 

20H initialize transporter 

f 

••• 

SB 

0001 

c+ 

$WhoAmI 

EQU 

01 H 5 Finds transporters NAD 

m 


SB 

0002 

c+ 

$Echo 

EQU 

02H ;Test presence of specified transporter 


« 



c+ 

5 *PP 

EQU 

08H ; Peek/Poke not used 

f 

• 



c+ 

5 



1 




c+ 

5 

Transp 

orter result codes 


c 



c+ 

m 

1 



f 

m. 

SB 

0000 

c+ 

*TrOK 

EQU 

00H ; Command completed successfully 



tss 

007F 

c+ 

$TrST 

EQU 

7FH ; Successful transmit retry maximum 


•g 

SB 

0080 

c+ 

*TrNG 

EQU 

80H ; Transmit failure, retry count exceeded 


1. 

SB 

0081 

c+ 

*TrDL 

EQU 

81H ;Data too long for receive buffer 

- ■ 


SB 

008£ 

c+ 

$TrNS 

EQU 

82H Receiver’s socket not set up 


# 

SB 

0083 

c+ 

$T rCL 

EQU 

83H ; Control length mismatch 

1 

1: 

SB 

0084 

c+ 

*TrIS 

EQU 

84H invalid socket 



SB 

0085 

c+ 

$TrNR 

EQU 

85H ; receive socket in use 


:ff 

SB 

0086 

c+ 

$Tr IT 

EQU 

86 H invalid transporter address 

€' 

1 

SB 

00C0 

c+ 

STrEA 

EQU 

0C0H ; Echo command acknowledged 

i. 


SB 

00FE 

c+ 

*TrSS 

EQU 

0FEH 5 Receive socket setup successful 


f 



c+ 

5 



€ 




c+ 

5 

Transp 

orter usage values 





c+ 

5 




f 

SB 

0040 

c+ 

*NADok 

EQU 

64 ; First invalid NAD value 

f 

“I 

SB 

00FF 

c+ 

SA11NAD 

EQU 

0FFH ; NAD for broadcast 



SB 

00FF 

c+ 

*TrSU 

EQU 

0FFH initialization value for result code 


i 



c+ 

m 

9 



f 

m 



c+ 

m 

9 







c+ 

ENDIF 




i 



c+ 

« 

9 



1 

* 



c+ 

ENDIF 







c+ 

9 




i 



c+ 

ENDIF 



i 



c+ 

«* 

9 







c+ 

ENDIF 




c 



c+ 

5 



< 


f € 
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0000 

= 003F 
= 01FQ 

0000 43 


C+ ENDIF 
C+ 5 

C+ ENDIF 
C+ ENDIF 
C+ ; 

C+ ENDIF 
C+ 

* 

************************************************************************ 

Segment Usage Definition I 

*********************************************************************** 

PCS GROUP PC^CODE,PC^DPTP 

PSSUME CS s PCS,DS s PC^DPTP,ES s PC^DPTP 

***#*#*#*###**##*##################**#■#####*#*#######*#*##*#####*&***#& 

External Symbol Definitions 1 

*********************************************************** ^*^****#*-K-** 

Start of data segment 
Emu 1 at or Comrnun i eat i on Table 
TST header 

Start of regular TST entries 
End of regular entries 
TST entry for ICS receive 
TST entry for NLM receive 
TST entry for sending NPD 
Fetch byte from transporter 
Fetch word from transporter 
Fetch string from transporter 
Put byte into transporter 
Command Int erpret er 
Setup message receive 
Do message transmission 
Retry a command 
Send Name Lookup message 
Local Command Int Driver' 

Local command NLM server 
Error log routine 
Trace routine 

*****#*#*****************************«^*****#******#**********##******-«** 

P 1 1ocat ed Dat a i 

*********************************************************************** 

PC DftTft SEGMENT PUBLIC ? DPTP 9 


EXTRN 

Dta_Bgr.:BYTE 

EXTRN 

EC 

: BYTE 

EXTRN 

TT 

: BYTE 

EXTRN 

TTbgn:BYTE 

EXTRN 

TTerid: BYTE 

EXTRN 

RcvICS:BYTE 

EXTRN 

RcvNLM:BYTE 

EXTRN 

TrrnNAD: BYTE 

EXTRN 

TL. 

_BYT_. IN: NEAR 

EXTRN 

TL 

_WRD._IN:NEAR 

EXTRN 

TL 

„DTA_IN:NEAR 

EXTRN 

TL 

_BYT„OUTsNEAR 

EXTRN 

Cl 

_MAIN:NEAR 

EXTRN 

TL 

_SET_RECV:NEAR 

EXTRN 

TL. 

_SET__SEND:NEAR 

EXTRN 

TL. 

_SET_RTRY:NEAR 

EXTRN 

TL. 

_SEND__NLM: NEAR 

EXTRN 

LC 

_RCV_CMND:NEAR 

EXTRN 

LC' 

_INT__SRVR:NEAR 

EXTRN 

DM. 

_ERR__LOG: NEAR 

EXTRN 

EM 

TRACE .-NEAR 


Command Request Queue 


$RQnum 

$RQsze 


EQU 

EQU 


&: 


sNumber of entries in the CRQ 


*RQnum * TYPE CRQE 


5E 51 48 


EYE 

DB 


<CRQH> 

•‘CRQH 11 



I 

« 

I 

< 

t 

I 

f 

I 

I 

« 

« 

« 

f 

I 

I 

I 

f 

I 

I 

f 

* 

€ 
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PA6E 


i-ia 


0004 00 

0005 00 

0006 0£0C R 

0008 0000 
000A 0000 


£0 


0££8 43 44 6D 67 


RQ 


CRQH <, , RQend) 


;The queue header 


I dent ification message for WHO and WHERE replies 


EYE 

DB 


I Drug 
"I Drug " 


€ 

€ 

f 


000C 

00 




RQbgri 

CRQE <> ;First entry 

« 

000D 

00 







000E 

0000 





jt 

0010 


04 

C 




1 





00 








3 



f 

0014 

01 F 8 

C 



DB $RQsze DUP(0) ;Remaining entries 






00 



m- 





3 



I 

= 0 £l 

0C 




RQer.d 

5 

EQU THIS BYTE 

f 






l 

i 

1 

! 

i 

1 

Internal stack area 

€ 

0£0C 

0000 



9 

EMStak 

DW 0 ;A generous stack size 


= 0£0E 




EMstake 

5 

EQU THIS BYTE 

f 






5 "**' 

• 

9 

Name Lookup Message Table 

f 






5 

EYE <NLMT> 


0£0E 

4E 

4C 

4D 

54 

4- 

DB "NLMT" 

f 

0 £ 1 £ 

10 




5 

MT 

NLMT <> 5 Use STRUC initial values 


0£13 

00 







0214 


02 

C 




1 





FF 




0216 

34 






1 

0217 

00 







0218 


0A 

C 




M 





£0 



1 





3 




0222 

00 







0223 

00 






« 

0224 


04 

C 






f 

< 

€ 

€ 

c 
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022C 

022E 

0230 

0232 

0234 


023E 

023F 

0240 

0242 


0246 


0000 


FE01 

0000 

0000 

0100 

50 43 53 48 41 52 
45 20 20 20 


IDrnsg NL.M <> 


;Blank fields set by TL-IMIT-TLD 


; Temporary storage for ICS data 

00 TrnpICS CRQE <> jForrri is a CRQ entry 

00 

0000 

04 C 

00 

3 


PC DATA ENDS 


************************************************************************************ 
Transporter Logical Device Routines 1 

*********************************************************************** 


PC_CODE SEGMENT PUBLIC ’CODE’ 

II 

9 

- *********************************************************************** 
5 Module names 
5 

5 Versions 8-0 
5 


Interrupt Service Driver (TL~~INT-DRVR) 


5 Last Updates 15 J 1384 


;Functions 


The Interrupt Service Driver determines the cause of any 
transporter interrupt and calls the appropriate routine to 
service it- If the interrupt is due to software, the 
Local Command Interface interrupt routine LC~~RCV~~CMND is 
called- If the interrupt is due to hardware, the hardware 
interrupt depth counter (field TT-INT of the TST header) 
is incremented- If the value is then 1 , a new interrupt 
processing sequence is started- If the value is greater 
than 1 , reentrance has occured; immediate exit is then 
made as the interrupt will be serviced by the interrupt 
sequence already in progress. 


5 Procedures Program Logic Description, Section 
? 

Called by? 8088 interrupt ft 


5 

5 Routines called? 


Interrupt service routines, 
TL-BYT-IN, CI—MftIN 




« 

The 

IBM 

Persona1 

Computer MACRO Assembler 01 
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i 

« 

« 





;Input s 

None 


! 

j 

c 

4 






5 

;Out put 

s Register data output to interrupt service routines is 

1 

! 

i 


4 





5 

5 


(ftL) = Completion code from result record 

1 

1 

i 






a 

9 


(SI) = Offset of the TST entry 

i 

1 


< 





5 

5 

The 

service routines need not preserve any registers except 

1 

< 






5 

a 

the 

segment registers and the stack pointer 

i 

1 


4 





9 

- Error 

proceduress None 

1 

i 

f 

4 





9 

5 Written bys 

Ra B« Talmadge, Computer Technology Ltd 

i 

1 

€ 






9 

5 Updates s is 

Timer tick interrupt feature, entry TL_INT_DTME, added 

f 

! 


f 





9 


30 November 1983 

I 

i 

4 






9 

9 

£ s 

Separate primary test loop for external control of 

I 

1 


f 





a 

9 


Emulator operation, entry TL_INT_TEST, implemented 

1 

* 






9 


7 December 1983 

1 

I 

s 





9 

9 

3s 

Change timer tick option to normal non-assembly, done 

i 

! 

M- 






a 

9 


££ December 1983 

I 

i 

4 

« 





9 

9 

4 s 

DOS intercept driver added 28 December 1983 

1 

1 

j 

4 






9 

9 

5s 

DOS intercept driver modified to issue controInbreak, 

I 

i 


f 





9 


done 11 January 1984 

I 

i 

f 






9 

9 

6 : 

DOS intercept and Control_break mechanism replaced by 

i 

I 


f 





a 

9 


DOS critical section test using In-DOS flag, done 14 

1 

m 

41; 





9 


January 1984 

i 

1 






5 *#*##***#*****#*#***********************#****#*##*##***#*****#******#*** 


f 

0000 




9 

TL_INT_ 

DRVR PROC NEAR 


i 

1 





9 

TENTER EC ;Set temporary environment 


A 

m 

0000 

50 


4. 


PUSH 

ftX 


f 


0001 

53 


4. 


PUSH 

BX 



i 

0002 

51 


4. 


PUSH 

CX 


£ 

M: 

0003 

52 


4. 


PUSH 

DX 



- 

0004 

BB 

0000 E 

4. 


MOV 

BX,OFFSET PCS:EC 



4 

0007 

B0 

0B 


9 

MOV 

ftL,$P82Ris 5 Send 8259ft command to 


4 


0009 

E 6 

20 



OUT 

$P82op0,ftL 5 read the interrupt service 



c 

000B 

90 




NOP 

5 register for source test 


£ 


000C 

E4 

20 



IN 

ftL,$P82op0 


1 


000E 

AS 

05 



TEST 

ftL,$P82EML 5 Test for hardware 



f 

0010 

75 

03 



JNZ 

HwDRVR 5 interrupt 


4 


0012 

E9 

009F R 


9 

JMP 

SwDRVR 50 o to software if not 


i 





<JS« •-** 

i 

1 

i 

! 

i 

I 

For a 

hardware interrupt, the transporter and 8259ft are reset 

! 

4 






9 

and a 

test is made for reentrance. If so, immediate exit is 

1 


< 

€ 





5 

taken. 

If not, a test is made for interrupt in DOB, when DOB 

! 

f 

c 
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entered from outside the Emulator. If that has happened and 
DOS is in a critical section, a deferred interrupt is set up. 

For interrupt outside DOS, the TL-INT-TEST routine is called. 
That routine will not return until the interrupt sequence has 






5 

5 

been 

completed, so TL_INT_ 

_DRVR just exits after the return. 

0015 

£E 

: F6 47 2F 40 


5 

HwDRVRs 

TEST 

CS:CBX3.EC_TBI, STBrenb ;If running with 

001A 

74 

04 



JZ 

DRinc 

; transporter interupts 

001C 

BA 

024D 



MOV 

DX,*C1INT 

5 pick up latch port and 

001F 

EE 



m 

OUT 

DX, AL 

5 Clear interrupt latch 

0020 

BB 

0000 E 


9 

DRiric s 

MOV 

BX,OFFSET PCS:TT 

5 Posit ion to TST header 

0023 

2E 

FE 07 



INC 

CS:CBXI.Int 

;Increment interrupt depth 

0026 

2E 

80 3F 01 



CMP 

CS:CBX3.Int,1 

5 If we have not reentered 

002A 

74 

09 



JE 

DRtsds 

5 go to process interrupt 

002C 




DRtxit 

LABEL 

NEAR 


002C 

B0 

20 



MOV 

AL., $P82eoi 

5 If we have, 

002E 

E6 

20 



OUT 

$P82op0,AL 

5 reset 0859ft 






TEXIT 


? and exit 

0030 

5A 


+ 


POP 

DX 


0031 

59 


4* 


POP 

CX 


0032 

5B 


4- 


POP 

BX 


0033 

58 


+ 


POP 

AX 


0034 

CF 


4* 


IRET 







? 

SI 

9 

Test 

for interrupt within 

DOB? if not, call primary 





u 

9 

interrupt test routine and 

exit on return 

0035 

2E i 

: FE 0F 


5 

DRtsds: 

DEC 

CS:CBX3.Int 

?ftdjust count for call or exit 

0038 

BB 

0000 E 



MOV 

BX, OFFSET PCS:EC 

;Recover ECT location 

003B 

IE 




PUSH 

DS 

;Set to this 

003C 

0E 




PUSH 

CS 

? segment and 

003D 

IF 




POP 

DS 

? fet eh 1ocation 

003E 

C5 

5F 34 



LDS 

BX, DWORD PTRCBX3. DOSdkO ; of In-DOS flag 

0041 

8 B 

07 



MOV 

AX, CBX3 

?Feteh flag itself 

0043 

IF 




POP 

DS 


0044 

0B 

C0 


5 

OR 

AX, AX 

?If in DOS crtical section, 

0046 

75 

4D 



JNZ 

INTfork 

? go set deferred interrupt 

0048 

B0 

£0 



MOV 

AL., $P82eoi 

?If not critical, reset 

004A 

E6 

20 



OUT 

$P8£op0, AL 

? 0£59ft and process 





9 

ENTER 

Dta_Bgn 

; Set environment 

004C 

56 


4- 


PUSH 

SI 


004D 

57 


4 


PUSH 

DI 


004E 

nrcr 

w w 


4* 


PUSH 

BP 


004F 

IE 


4 * 


PUSH 

DS 


0050 

06 


4* 


PUSH 

ES 


0051 

SC 

C8 

4 * 


MOV 

AX, CS 


0053 

BB 

0000 E 

4- 


MOV 

BX, OFFSET PCS:Dta 

Bgn 

0056 

D1 

EB 

4 * 


SHR 

BX, 1 


0058 

D1 

EB 

4 - 


SHR 

BX, 1 






The IBM Personal Computer MACRO Assembler 01—15—84 


PAGE 


1-16 


005A 

005C 

005E 

0060 

0062 

0064 

0066 

006B 

006D 

0072 


0075 
007A 
007C 
007D 
007F 
0080 
0083 
0086 
0087 
0088 
008B 
0246 
0246 
0247 
0248 
025A 
008B 
008B 


008B 

008B 

008C 

008D 

008E 

008F 

0090 

0091 

0092 

0093 

0094 


0095 

0098 

009D 


D1 

EB 



4 


SHR 

BX, 1 



Di 

EB 



4* 


SHR 

BX, 1 



03 




4 


ADD 

AX, BX 



BE 

D8 



4 


MOV 

DS, AX 



8E 

C0 



4 


MOV 

ES, AX 



SB 

EC 



4 


MOV 

BP, SP 



F6 

06 002F 

E 

40 


5 

TEST 

EC. EC__TBI, $TBrenb 

5 If running 

with 

74 

05 





JZ 

DRctst 

; transporter ints 

80 

26 002F 

E 

DF 



AND 

EC.EC_TBI,0FFH-*TBrtck 

5 clear timer 

EQ 

00C2 R 




DRctst: 

CALL 

TL_.INT_.TEST 

5 Go process 

interrupt 






5 

TRACE 

E:TL-INT-DRVR-HDWE 



80 

3E 000B 

E 

00 

4 


CMP BYTE PTR EC.Tree,$True 



75 

0F 



4 


JNE 

770000 



50 




4 


PUSH 

AX 



B0 

00 



4 


MOV 

AL, 0 



56 




4 


PUSH 

SI 



BE 

0246 R 



4 


MOV 

SI,OFFSET 770001 



E8 

0000 E 



4 


CALL 

EM TRACE 



5E 




4 


POP 

SI 



58 




4 


POP 

AX 



EB 

01 90 



4 


JMP NEAR PTR 770000 







4 

PC_CQDE 

ENDS 








4 

PC~DATA 

SEGMENT 

PUBLIC »DATA’ 



00 

1 O 




4 

770001 

LRB 

<,OFFSET 770003 - OFFSET 

??000£> 


. 1 . c. 

45 

3A 54 4C i 

2D 49 

r 

4 

770002 

DB 

"E:TL-INT-DRVR-HDWE" 







4 

PC DATA 

ENDS 








4* 

PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 







4 

?70000 

LABEL 

NEAR 




07 

IF 

5D 

5F 

5E 

5A 

59 

5B 

58 

CF 


BB 0000 E 

2E: 80 4F 2F 20 

EB 8D 


5 



EXIT 

, INTx 

4 INTxit 

LABEL. 

NEAR 

4 

POP 

ES 

4 

POP 

DS 

4 

POP 

BP 

4 

POP 

DI 

4 

POP 

SI 

4 

POP 

DX 

4 

POP 

CX 

4’ 

POP 

BX 

4 

POP 

AX 

4 

IRET 



;Exit on return 


If interrupt within DOS, exit if this has occurred previously 
before the deferred interrupt has been processed, otherwise 
force reentry by turning on timer tick entry control 


INTbrk: MOV 
OR 
JMP 


BX,OFFSET PCSsEC 

CS:HEX].EC_TBI,STBrtck 

DRTxit 


5 

5 


Recover 
Turn on 
and go 


ECT offset 
t i rner 
to exit 


9 
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For” a software interrupt, call the Local Command Interface 
driver 


9 " 

9 


009F 

E 8 

0000 E 


SwDRVR: 

COLL LC_RCV_CMND gCall LC service routine 





9 

9 


On return, test for operation in progress and call the 





9 


primary interrupt test at CI_M0IN entry test if so 





9 


TRACE E:TL-INT-DRVR-STWE 

0002 

80 

3E 000B E 00 

4- 



CMP BYTE PTR EC.Tree,$True 

0007 

75 

0F 

4* 



JNE ? ?0004 

0009 

50 


4. 



PUSH OX 

0000 

B0 

00 

4. 



MOV OL,0 

0000 

58 


4 



PUSH SI 

00OD 

BE 

0S5R R 

4. 



MOV SI,OFFSET ??0005 

00B0 

E 8 

0000 E 

4* 



COLL EM TRACE 

00B3 

5E 


4 



POP SI 

00B4 

58 


.4 



POP OX 

00B5 

EB 

01 90 

4* 



JMP NEAR PTR ??0004 

00B8 



4* 

PC 

CODE 

ENDS 

0250 



4* 

PC 

__DAT0 

SEGMENT PUBLIC ’DATA’ 

0250 

00 


4* 

??0005 

LRB <,OFFSET ??0007 - OFFSET ??000S> 

025B 

1 c! 


.4 




@250 

45 

3fi 54 40 ED 49 

4. 

??0006 

DB "E:TL-INT-DRVR-STWE" 

026E 



4* 

PC 

JDOTO 

ENDS 

00B8 



.4 

PC, 

..CODE 

SEGMENT PUBLIC ’CODE* 

00B8 



4* 

0 0\ 

0004 

LOBEL NEAR 

00B8 

Fft 



9 


CLI ;Disable interrupts 

00B9 

3C 

00 




CMP OL,$LCopn 5 If operation not started 

00BB 

75 

CE 




JNE INTxit ; go to exit, otherwise 

00BD 

E 8 

00F4 R 




COLL DRVtci g call primary routine 

0000 

EB 

C9 


5 


JMP INTxit gGo to exit 





9 —■ 

? 


Primary interrupt test routine begins here. This routine is 





» 

9 


called by TL_INT_DRVR for a transporter hardware interrupt, 





9 


by TL_INT__DTME if timer' ticks are being used to drive the 





9 


Emulator, by the UTIL__INT_TEST device driver routine if the 





? 


Emulator is being invoked by an external routine, and by the 





« 

9 


TL-INT-WOIT routine if an ORB wait occurs when the Emulator 





a 

9 

9 

_ — ^ , _ 

is being driven externally. 

0002 




9 

TL. 

_INT_TEST LABEL NEAR 





9 

9 


Interrupt event loop tests result records associated with TST 





9 


entries for change of status, and calls the interrupt service 





9 


routine if a change has occurred. 

0002 

FE 

06 0000 E 


DRVgo: 

INC TT. Int ; Update depth count 


00C6 FB DRVlpes STI g Reenable interrupts 

0007 BE 0000 E MOV SI,OFFSET TTbgn ;Fetch offset intial entry 
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00CA 

BB 

5C 

06 


DRVIss 

MOV 

BX, ESI 3.RR 

;Fetch result record location 

00CD 

e a 

0000 E 



CALL 

TL BYT IN 

; and get current status 

00D0 

3A 

44 

01 



CMP 

AL, ESI3 . TT__ST 

?If no change, 

00D3 

74 

08 




JE 

DRVlpn 

; go to test for next 

00D5 

56 




9 

PUSH 

SI 

;Save posit ion 

00D6 

86 

44 

01 



MOV 

ESI3. TT ST, Al. 

;Record new status 

00D9 

FF 

54 

0C 



CALL WORD PTR ESI3.Isr 

;Call interrupt service routine 

00DC 

5E 





POP 

SI 

;Recover position 

00DD 

83 

C6 

14 


DRVlpn: 

ADD 

SI, TYPE TSTE 

;Increment to next entry 

00E0 

81 

FE 

0000 

E 


CMP 

SI, OFFSET TT end 

00E4 

7C 

E4 




JL 

DRVls 

;Do next if not end 






9 

N 

9 

After 

a complete pass through the loop, it is restarted 






9 

if the 

interr upt depth 

does not go to zero. If it does 






9 

go to 

zero the Command 

Interpreter is called unless the 






9 

interr 

upt sequence started within it; in that case, the 






9 

driver 

just exits to await return from Cl. 

00ES 

FA 




9 

CLI 


;Disable interrupts 

00E'7 

FE 

0E 

0000 

E 


DEC 

TT.Int 

;Decrement depth count and 

00EB 

75 

D9 




JMZ 

DRVlpe 

; restart loop if not zero 

00ED 

80 

3E 

0001 

E 00 


CMP 

TT.TT_CI, $True 

;Exit if we are 

00 F2 

74 

IF 




JE 

DRVxit 

; in the Command interpreter 

00 F 4 

80 

3E 

000D 

E 00 

DRVtci: 

CMP 

EC.EC_TRM, $True 

;Exit if Emulator 

00F9 

74 

18 




JE 

DRVx it 

; operation terminated 

00FB 

80 

3E 

0004 

R 00 


CMP 

RQ. Qst, $RG!mt 

;No need to ca11 Cl if 

0100 

74 

11 




JE 

DRVx it 

; the CRQ is empty 

0102 

C6 

06 

0001 

E 00 

DRVcei: 

MOV 

TT.TT_CI, $True 

;Turn on CI entry flag and 

0107 

FB 





STI 


; reenable interrupts 

0108 

E8 

0000 E 


9 

CALL NEAR PTR CI_MAIN 

;Call the Command Interpreter 






9 

9 

On ret 

urn from Cl-MAIN 

it is necessary to test the CRQ 






M 

9 

a command which may have been inserted between the end «: 






. 

9 

Cl-MAIN processing and 

t he ret urn to this 1ocation 

010B 

FA 




9 

CLI 


;Disable interrupts 

010C 

CS 

06 

0001 

E 01 


MOV 

TT. TT Cl,$False 

;Clear Cl entry flag 

0111 

EB 

El 




JMP 

DRVtci 

;Go test for exit 


0113 
0113 


DRVxit 
5 

s 

9 

» 

9 

M 

9 

9 


LABEL 

RET 


NEAR 


;Just a simple intra—seg return 


When the transporter is to be run off the timer tick, this 
entry is invoked by each timer tick. The ticks are counted 
down until the delay p^r^iod expires. The primary interupt 
loop is called when it does, and the delay period restarts 


9 
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0114 




TL^INT^ 

DTME 

LABEL NEAR 

0114 

50 



9 

PUSH 

AX 3 Save working 

0115 

53 




PUSH 

BX 5 registers 

0116 

BB 

0000 E 



MOV 

BX,OFFSET PCSsEC 3 Fetch ECT offset 





5 

9 

Exit 

if tirner tick not being used or if period not expired 

0119 

2 E: 

F 6 47 

2 F 20 

9 

TEST 

CSsCBX3.EC^TBI,♦TBrtck ;Test tick effective 

01 IE 

74 

06 



JZ 

TLTxit 3 and go out if not 

0120 

2 E: 

FE 4F 

30 


DEC 

CS s CBXU « TLt rnck ; Decrement timer tick 

01 c!4 

74 

05 



JZ 

TLTgo 5 Go 1 0 driver if count down 





9 

9 

If not time to call the Emulator, restore registers, call 





u 

9 

the saved timer tick routine, then exit on return 

0126 

5B 



9 

TLTxit : 

POP 

BX 3 Reset to entry 

0127 

58 




POP 

AX 3 conditions 

0128 

CD 

67 



INT 

$Ca11TM 3 Ca 11 other timer rtn 


012A CF I RET ; and then exit 

9 

3 If tick period has expired, reset the tick count, restore 

5 registers, and go to the main interrupt driver. Note that 

3 in this case the saved timer tick exit routine is not called 


5 


012B 

2E: 8 A 47 

31 

TLT go; 

MOV 

AL,CS:CBX3.TLtmrs 

3 Reset timer tick 

012F 

2E: 88 47 

30 


MOV 

CS: CBXU. TLt rnck, AL 

3 count value 

0133 

5B 



POP 

BX 

3 Reset to entry 

0134 

58 



POP 

AX 

3 condtions 

0135 

E9 0000 R 



JMP 

TL_INT_DRVR 

3 Go process the interrupt 

0138 



3 

Tl_ INT 

DRVR 

ENDP 



9 

; ********************************************************************** •*# 

;Module names Wait For Operation Complete (TL-INT-WAIT) I 

3 ^ 

;Versions 2.® 1 

9 t 

3 Last Updates 29 December 19B3 I 

9 I 

^Functions Wait For Operation Complete is called by any routine which I 

3 cannot proceed until an operation started from an ORB has 1 

3 been completed* If the Emulator' is being driven by either ! 

3 its own or timer' interrupts, the routine assure interrupts I 

5 are enabled and waits for the interupt routine to set the I 

3 ORB completion flag* If interrupts are not being used, I 

3 TL-INT—WAIT calls TL-INT-TEST to drive the interrupt test I 

3 loop externally* I 

? ® 

3 Procedures New routine 3 see comment s in code I 

» 1 

; Called bys TL-RTN-RSLT, TL-FETCH-LC I 

I 

; Rout ir.es called; TL-1 NT-TEST I 
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;Input: DS:(SI) = Location of ORB I 

? ^ 

; Out puts ORB completion code field modified I 

9 ^ 

5 Error procedures s None * 

5 ^ 

;Written by: R. B» Talrnadge, Computer Technology Ltd I 

? * 

; Updates: None J 

i ^ 

- *********************************************************************** 


0138 







TL_INT„WAIT PROC NEAR 








9 

5 

If the 

transporter is being run by either interrupt type 








» 

9 

interrupt enable is assured and the wait is simply for a 








5 

change 

of ORB completion status 








9 

TRACE 

S:TL—INT-WAIT 

0138 

80 

3E 

000B 

E 

00 

4 


CMP BYTE PTR EC.Tree,*True 

013D 

75 

0 F 




4* 


JNE 

7 70008 

013F 

50 





4 


PUSH 

AX 

0140 

B0 

00 




4 


MOV 

AL, 0 

0142 

56 





4 


PUSH 

SI 

0143 

BE 

026E R 



4 


MOV 

SI,OFFSET 770009 

0146 

E8 

0000 E 



4 


CALL 

EM_TRACE 

0149 

5E 





4 


POP 

SI 

014A 

58 





4 


POP 

AX 

014B 

EB 

01 

90 



4 


JMP NEAR PTR 770008 

014E 






4 

PC CODE 

ENDS 


026E 






4 

PC_DATA 

SEGMENT 

PUBLIC ’DATA’ 

0£6E 

00 





4 

?70009 

LRB 

<,OFFSET 77000B - OFFSET 77000A) 

026F 

0D 





4 




0270 

53 

3A 

54 4C ; 

2D 49 

4 

77000A 

DB 

"S:TL—INT-WAIT" 

027D 






4 

PC_DATA 

ENDS 


014E 






4 

PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 

014E 






4 

770008 

LABEL 

NEAR 

014E 

F6 

06 

002F 

E 

60 


5 

TEST 

EC.EC_TBI,$TBrenb+$TBrtck ;If no interrupt 

0153 

74 

ID 






JZ 

WAITni ; go to driver 

0155 

FB 






5 

ST I 

5 Assure interrupts enabled 

0156 

80 

3C 

FF 




WAITcc: 

CMP 

csn.cc, SQPinp ;Wait around until the 

0159 

74 

FB 






JE 

WAITcc ; Operation code changes 

015B 







WAITxt 

LABEL 

NEAR 








9 

TRACE 

E:TL-INT-WAIT 

015B 

80 

3E 

000B 

E 

00 

4 


CMP BYTE PTR EC.Tree,$True 

0160 

75 

0F 




4 


JNE 

77000C 

0162 

50 





4 


PUSH 

AX 

0163 

B0 

00 




4 


MOV 

AL, 0 

0165 

56 





4 


PUSH 

SI 

0166 

BE 

027D R 



4 


MOV 

SI,OFFSET 77000D 

0169 

E8 

0000 E 



4 


CALL 

EM_TRACE 
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01 sc 

5E 



4 * 



POP SI 


016D 

58 



4 * 



POP ftX 


016E 

EB 

01 

90 

4 * 



JMP NEftR PTR ??000C 


0171 




4 - 

PC. 

.CODE 

ENDS 


0£7D 




4 - 

PC. 

.DftTft 

SEGMENT PUBLIC ’DftTft’ 


027D 

00 



4 * 

??000D 

LRB <, OFFSET ??©00F 

- OFFSET ??000E> 

0S7E 

0D 



4 * 





0£7F 

45 

3A 

54 4C £D 49 

4 * 

??000E 

DB "E:TL-INT—WftIT" 


0£8C 




4 * 

PC 

DftTft 

ENDS 


0171 




4 * 

PC. 

.CODE 

SEGMENT PUBLIC ’CODE’ 


0171 




4 - 

??000C 

LABEL NEAR 


0171 

C3 




9 


RET 

;Ret urn to caller 






5 

5 


If the transporter is being driven externally, call the 






5 


primary interrupt test r 

‘out ine until the ORB completion 






5 


status changes 


017£ 

80 

3C 

FF 


WfilTni : 

CMP CSI3.CC,*OPinp 

;Ex it if completion 

0175 

75 

E4 





JNE WflITxt 

; has occurred 








SELSfiVE <AX, BX, CX, DX„ 31, 

DI > 

0177 

50 



4 * 



PUSH OX 

;SftVE ftX 

0178 

53 



4 * 



PUSH BX 

;SftVE BX 

0179 

51 



4 * 



PUSH CX 

;SftVE CX 

017ft 

5£ 



4 * 



PUSH DX 

; SftVE DX 

017B 

56 



4 * 



PUSH SI 

;SftVE SI 

017C 

57 



4* 



PUSH DI 

5 SftVE DI 

017D 

E 8 

00C£ R 




CALL TL INT TEST 

;Call interrupt driver 








SELREST 


0180 

5F 



4* 



POP DI 

;RESTORE DI 

0181 

5E 



4* 



POP SI 

;RESTORE SI 

01 S£ 

5ft 



4* 



POP DX 

;RESTORE DX 

0183 

59 



4* 



POP CX 

;RESTORE CX 

0184 

5B 



4- 



POP BX 

;RESTORE BX 

0185 

58 



4- 



POP ftX 

;RESTORE AX 

0186 

EB 

EA 





JMP Wait ni 

; and test again 

0188 





5 

TL 

INT WfilT ENDP 



5 

5 ****##*********#***#******#******#**^#*#*****#*#****^**************^-«*** 
5 Module name: Dequeue CRQ (TL-DQ-CRQ) j 

? I 

;Version s S«0 I 

5 1 

;Last Updates E‘0 December 1983 I 

5 l 

5 Functions The Dequeue CRQ routine (TL-DQ-CRQ) is called by CI-MAIN l 

5 to fetch the next command from the CRQ. If the queue is I 

5 not empty and there is a current command, the current I 

I command is deleted and the next command, if any, is made ! 

I current* If there is no current command, the first entry I 

? becomes the current command* In either case, the content l 

5 of the entry is returned to the caller. I 

9 1 

; Procedures Program Logic Description, Section £\ 5 I 
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0180 


0188 

018D 

018F 

0190 

0192 

0193 

0196 

0199 

019A 

019B 

019E 

028C 

02SC 

028D 

028E 

0299 

019E 

019E 

019E 
01 A3 


01A5 
01AA 
01 AC 
01 AD 
01AF 
01B0 
01B3 
01B6 
01B7 
01B8 


{Called bys CI-MAIN 

5 Routines called: TL-SET-RECV, DM-ERR-LOG 
5 

;Input: ES:(DI> = Location to return data 


5 Out put 


<AL) = $True if item dequeued, 

$Flase if queue was empty 


;Error procedures: An error is logged if the queue is not empty but 
; the queue indicator is not set for the top item 

5 

{Written by: R. B. Talmadge, Computer Technology Ltd 
5 

5 Updates s Norte 

M 
? 

; ********************************************************************************** 


TL._DQ._CRQ PROC NEAR 

TRACE S:TL—DO—CRO 


8 ® 

3E 000B E 

00 

4* 


CMP BYTE PTR EC.Tree,$True 

75 

0F 


4* 


JNE 

??0010 

50 



4* 


PUSH 

AX 

B0 

00 


4* 


MOV 

AL, 0 

56 



4* 


PUSH 

SI 

BE 

028C R 


-h 


MOV 

SI,OFFSET ??0011 

E8 

0000 E 


4* 


CALL 

EM TRACE 

5E 



4* 


POP 

SI 

58 



4* 


POP 

AX 

EB 

01 90 


4- 


JMP NEAR PTR ??0010 




4* 

PC CODE 

ENDS 





4* 

PC_DATA 

SEGMENT 

PUBLIC ’DATA’ 

00 



4* 

??0011 

LRB 

<,OFFSET ??0013 - OFFSET ??0012> 

0B 



4- 




53 

3A 54 4C S 

:d 44 

4- 

??0012 

DB 

"S:TL-DQ—CRQ" 




4* 

PC_DATA 

ENDS 





4* 

PC CODE 

SEGMENT 

PUBLIC ’CODE’ 




4* 

??0010 

LABEL 

NEAR 

80 

3E 0004 R 

00 


DQs0: 

CMP 

RQ. Qst,$RQrnt {Return immediately 

75 

19 




JNE 

DQst ; if the queue is empty 





5 

TRACE 

X:TL-DQ-CRQ 

80 

3E 000B E 

00 

4* 


CMP BYTE 

: PTR EC.Tree,$True 

75 

0F 


4* 


JNE 

??0014 

50 



4- 


PUSH 

AX 

B0 

00 


4- 


MOV 

AL, 0 

56 



4* 


PUSH 

SI 

BE 

0299 R 


4* 


MOV 

SI,OFFSET ??0015 

E8 

0000 E 


4* 


CALI- 

EM_TRACE 

5E 



4* 


POP 

SI 

58 



4* 


POP 

AX 

EB 

01 90 


4 . 


JMP NEAR 

: PTR ??0014 
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01BB 





4* 

PC_CODE 

ENDS 



0299 





4* 

PC DATA 

SEGMENT 

PUBLIC ’DATA’ 


0299 

00 




4- 

??0015 

LRB 

<,OFFSET ??0017 - OFFSET ??001B> 

029A 

0B 




4- 





029B 

58 

3 A 

54 4C 

: 2D 44 

4- 

??0016 

DB 

"X sTL-DQ-CRO" 


02A8 





4* 

PC_DATA 

ENDS 



0 IBB 





4- 

PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 


01BB 





4* 

??0014 

LABEL 

NEAR 


01BB 

B0 

01 




DQs00s 

MOV 

AL,$False 

;Set em pt y indicator 

01BD 

C3 






RET 


;Ret urn to caller 

01 BE 

56 





DQst : 

PUSH 

SI 

;Save working register 








STATUS 


;Disable interrupts 

01BF 

9C 




4- 


PUSHF 



01 C0 

FA 




4. 


CLI 









5 

N 

9 

If the 1 

queue is full, 

a call is made to the Setup Message 







9 

Receive 

routine to restart command reception 

01C1 

80 

3E 

0004 

R FF 


5 

CMP 

RQ„Qst,*RQful 

;Test status 

01C6 

75 

08 





JNE 

DQst 1 


01C8 

B0 

01 





MOV 

PL,$False 

;Call parameters are no ORB 

01CA 

BE 

0000 E 




MOV 

SI,OFFSET RevICS ; and the Receive ICS TST enti 

01 CD 

E8 

0000 E 




CALL 

TL_SET_RECV 

;Go rest art reception 

01D0 

SB 

36 

0008 

R 


DQst1 2 

MOV 

SI, RQ. Top 

;Offset of queue head item 

01D4 

F6 

04 

80 




TEST 

tSn.Use, $RQUs 

eE 

01D7 

75 

10 





JNZ 

DQok 

;0K, entry is queued 







5 

RESTORE 


;If entry is not queued 

01D9 

9D 




4* 


POPF 










log 

$MND01 

; log an error message, 

01 DA 

50 




4- 


PUSH 

AX 


01DB 

B0 

09 



4. 


MOV 

AL,*MND01 


01DD 

E8 

0000 E 


4. 


CALL 

DM_ERR_LOG 


01 E0 

58 




4* 


POP 

AX 


01E1 

C6 

06 

0004 

R 00 



MOV 

RQ.Qst,$RQmt 

; set queue empty, 

01 EG 

5E 






POP 

SI 

; restore regsiter 

01E7 

EB 

D£ 





JMP 

DQs00 

; and go to empty exit 







9 

■ 

9 

Test entry for current 

item. If not, go to fetch its 







M 

9 

data. 

If so, move to 

next item and set it current, then 







5 

go back 

and pret end we 

have just started the routine 

01E9 

F6 

04 

40 



DQok s 

TEST 

ESI 1 .Use,$RQUseR 

01 EC 

74 

C.C. 





JZ 

DQfrst 

;First reference returns data 

01 EE 

3B 

36 

000A 

R 


9 

CMP 

SI, RQ.Bot 

;If current entry is only 

01 F2 

75 

08 





JNE 

DQoki 

; one in queue, set empty 

01F4 

CS 

06 

0004 

R 00 



MOV 

RQ. Qst, $RQrnt 

; indicator and go 

01F9 

EB 

0D 

90 




JMP 

DQok2 

; back to process 

01FC 

83 

C6 

08 



? 

DQok i2 

ADD 

SI, TYPE CRQE 

;Posit ion to next entry 

01FF 

3B 

36 

0006 

R 



CMP 

SI, RQ.End 

;Reset position 
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0£03 

7C 

03 




JL 

DQok£ ; if we wrap around 

0805 

BE 

000C R 




MOV 

SI,OFFSET RGbgn 

0£08 

89 

36 0008 R 


DQok£: 

MOV 

RQ.Top,SI ;Reset top pointer 







RESTORE 

;Restore interrupt status 

0£0C 

9D 


4 - 



POPF 


0£0D 

5E 





POP 

SI ; and go back to process 

0 £0E 

EB 

BE 




JMP 

DQb0 





9 

9 


Reenter 

here to send data from new current item 

0£10 




DGfrst: 

RESTORE 

;Restore interrupt status 

0210 

9D 


4 - 



POPF 


08 i l 

80 

0C 40 




OR 

CSI3.Use,$RQUseR ;Record passage 

0814 

57 





PUSH 

DI ;Save original location 

0815 

51 





PUSH 

CX ;Set up 

0216 

B9 

0004 




MOV 

CX,$RQCsze ; fetch count 

0219 

8 D 

74 04 




LEA 

SI,CSI3.Crnnd ;Set fetch position 

021C 

F3/ A4 




REP MOVSB 5 Move the data 

08 IE 

59 





POP 

CX 

02 IF 

5F 





POP 

DI ;Restore registers 

0220 

B0 

00 


9 


MOV 

AL,$True ;Set return data 

0222 

5E 





POP 

SI ; Restore work reg ister 





9 


TRACE 

EsTL-DG-CRQ 

0223 

80 

3E 000B E 00 

4 * 



CMP BYTE PTR EC.Tree,*True 

0228 

75 

0F 

4 - 



JNE 

??0018 

022A 

50 


4 * 



PUSH 

AX 

022B 

B0 

00 

4 * 



MOV 

AL, 0 

022D 

56 


4 * 



PUSH 

SI 

022E 

BE 

02A6 R 

4 - 



MOV 

SI,OFFSET ??0019 

0231 

E8 

0000 E 

4 * 



CftLL 

EM TRACE 

0234 

5E 


4 * 



POP 

SI 

0235 

58 


4 * 



POP 

AX 

0236 

EB 

01 90 

4 * 



JMP NEAR PTR ??0018 

0239 



4 - 

PC. 

.CODE 

ENDS 


02A6 



4 - 

PC. 

DATA 

SEGMENT 

PUBLIC ’DATA’ 

02A6 

00 


4 * 

??0019 

LRB 

<,OFFSET ??001B - OFFSET ??001A> 

02A7 

0B 


4 * 





02A8 

45 

3A 54 4C 2D 44 

4 - 

??001ft 

DB 

"E:TL—DQ—CRG" 

02B3 



4 - 

PC_ 

.DATA 

ENDS 


0239 



4 - 

PC. 

.CODE 

SEGMENT 

PUBLIC ’CODE’ 

0239 



4 - 

??0018 

LABEL 

NEAR 

0239 

C3 



9 


RET 

5 Ret urn to caller 

023A 




TL_ 

_DQ_CRQ ENDP 



* 

************************************************************************ 
;Module names Enqueue CRG (TL-NQ-CRG) I 

« I 

? 

•Version: £.0 I 

? ^ 

5 Last Updates £0 December 1983 I 
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;Functions The Enqueue CRQ routine (TL-NQ-CRQ) is called by service 
5 routines to place a new command into the queue. The 

; queue status (full or not full) is returned to the caller 

91 

9 

5 Procedures Program Logic Description, Section £.5 
? 

5 Called by: TL-RCV-ICS, TL-RCV-HI, TL-RCV-BYE, 

5 TL~RCV~~IDEN, LC-RECVHDISK, LC-BEND-DISK 

5 

; Routines called: None 


« 

9 






;Input: 

DS:(SI) 

~ Location of pro forma CRQ entry containing 

1 





M 

1 


data to be enqueued 

1 

1 





5 

5 Out put 

s (AL) 

= Completion code 

1 

1 

1 





5 

5 Error 

procedures: None 

I 

I 

I 





V 

; Written by: R. B. Talrnadge, Computer Technology Ltd 

1 

1 

1 





5 Updates: None 


! 

I 

l 





9 » 

; *#****###**************##***********#**#*##*#***#*#****#***********##** 

» 

9 

0£3P 




TL„NQ_CRO PROC 

NEAR 






1 

TRACE 

SsTL-NQ-CRQ 


0£3A 

80 

3E 000B E 00 



CMP BYTE 

PTR EC.Tree,$True 


0£3F 

75 

0F 

4. 


JNE 

??001C 


0£41 

50 


4 


PUSH 

AX 


0£4£ 

B0 

00 

4 


MOV 

AL, 0 


0£44 

56 


4 


PUSH 

SI 


0£45 

BE¬ 

0£B3 R 

4 


MOV 

SI,OFFSET ??001D 


0£48 

ES 

0000 E 

4 


CALL 

EM_TRACE 


0£4B 

5E 


4 


POP 

SI 


0£4C 

58 


4 


POP 

AX 


0£4D 

EB 

01 90 

4 


JMP NEAR 

PTR ??001C 


0£50 



4 

PC_CODE 

ENDS 



0£B3 



4 

PC_DATA 

SEGMENT 

PUBLIC ’DATA’ 


0£B3 

00 


4 

??001D 

LRB 

<,OFFSET ??001F - OFFSET ??001E> 


0£B4 

0B 


4 





0£B5 

53 

3A 54 4C £D 4E 

4 * 

??001E 

DB 

"SsTL-NQ-CRQ" 


0£C0 



4 

PC_DATA 

ENDS 



0£50 



4 

PC„CODE 

SEGMENT 

PUBLIC ’CODE’ 


0£50 



4 

??001C 

LABEL 

NEAR 


0£50 

A0 

0004 R 


5 

MOV 

AL,RQ.Qst ;Ret urn at once 


0£53 

3 C 

FF 



CMP 

AL,$RQful ; if the queue is full 


0£55 

75 

17 



JNE 

NQok 






5 

TRACE 

X;TL-NQ-CRQ 


0£57 

80 

3 E 000B E 00 

4 


CMP BYTE 

PTR EC.Tree,fTrue 


0£5C 

75 

0 F 

4 


JNE 

?? 00£0 
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025E 

50 





4 

PUSH 

AX 


025F 

B0 

00 




4 

MOV 

AL, 0 


0281 

56 





4 

PUSH 

SI 


0262 

BE 

02C0 R 



4 

MOV 

SI,OFFSET ??0021 


0265 

E8 

0000 E 



4 

CALI- 

EM_TRACE 


0268 

5E 





4 

POP 

SI 


0263 

58 





4 

POP 

AX 


026A 

EB 

01 

90 



4 

JMP NEAR PTR ??0020 


026D 






4 PC_CDDE 

ENDS 



02C0 






4 PCJDPTft 

SEGMENT 

PUBLIC ’DATA’ 


02C0 

00 





4 ??00£1 

LRB 

<, OFFSET ??0023 

- OFFSET ??0022> 

02C1 

01 





4 




02C2 

58 





4 ??00££! 

DB 

"X" 


02C3 






4 PC^DPTP 

ENDS 



026D 






4 PC^CODE 

SEGMENT 

PUBLIC ’CODE’ 


026D 






4 ??00£0 

LABEL 

NEAR 


026D 

C3 





5 

RET 



026E 

57 





5 

NQoks 

PUSH 

DI 

;Save working register 








STATUS 


5 Disable interrupts 

026F 

9C 





4 

PUSHF 



0270 

FA 





4 

CL I 



0271 

80 

3E 

0004 

R 

00 


CMP 

RQ.Qst,$RQmt 

;Norma1 processin g 

0276 

75 

13 





JNE 

NOst 

; if the queue is not ernpt 







5 

5 

If the 

queue is empty, set to use first entry and 







9 

go to fetch the data 


0278 

BF 

000C R 



5 

MOV 

DI, OFFSET RGIbgr. 


027B 

89 

3E 

0008 

R 



MOV 

RQ. Top, DI 

;Set header pointers 

027F 

89 

3E 

000A 

R 



MOV 

RQ.Bot,DI 


0283 

C6 

06 

0004 

R 

01 


MOV 

RQ.Qst,$RQent 

5 Set status indicator 

0288 

EB 

c!0 

90 




JMP 

NQmov 








9 

9 

Reenter 

here if queue neither empty or full 

028B 

8B 

3E 

000A 

R 


9 

NQst 5 

MOV 

DI, RQ. Bot 

;Fetch offset tail entry 

028F 

83 

C7 

08 




ADD 

DI, TYPE CRQE 

;Position to next 

0292 

3B 

3E 

0006 

R 



CMP 

DI, RQ. End 

;Reset position if 

0296 

7C 

03 





JL 

NQst 1 

; we wrap around 

0298 

BF 

000C R 




MOV 

DI,OFFSET RQbgn 


029B 

89 

3E 

000A 

R 


NQst1: 

MOV 

RQ.Bot,DI 

5 Reset bottom pointer 

029F 

3B 

3E 

0008 

R 



CMP 

DI, RQ. Top 


08 A3 

75 

05 





JNE 

NQmov 

;Set indicat or if 

08A5 

C6 

06 

0004 

R 

FF 


MOV 

RQ.Qst, $RQful 

5 queue now full 







9 

9 

Reent er 

here to fetch data and set up new entry 

02AA 






9 

NQmov s 

RESTORE 


;Restore interrupt status 

02AA 

9D 





4 

POPF 



08 AB 

56 






PUSH 

SI 

^Save original locations 

02AC 

57 






PUSH 

DI 


02AD 

51 






PUSH 

CX 

5 Set up 
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0£AE 

B9 

0008 



MOV 

CX,TYPE CRQE ; fetch count 


0£B1 

F3 

/ A4 



REP MOVSB :Move the data 


0£B3 

59 




POP 

CX 


0£B4 

5F 




POP 

DI ;Restore registers 


0£B5 

5E 




POP 

SI 


0EB& 

80 

0D 80 



OR 

CD I 2 m Use, $RQUseE 5 Indicate entry queued 


0£B9 

A0 

0004 R 



MOV 

PL,RQ.Qst !|Set return data 


0£BC 

5F 



MQxit: 

POP 

DI 5 Restore working register 






5 

TRACE 

E s TL-NGHCRQ 


0£BD 

80 

3E 000B E 00 

4* 


CMP BYTE PTR EC.Tree,$True 


0£C£ 

75 

0F 

4- 


JNE 

??00£4 


0£C4 

50 


4* 


PUSH 

AX 


0£C5 

B0 

00 

4* 


MOV 

AL, 0 


0£C7 

56 


4* 


PUSH 

SI 


0£C8 

BE 

0£C3 R 

4* 


MOV 

SI,OFFSET ??00£5 


0£CB 

E 8 

0000 E 

4- 


CALL 

EM_TRACE 


0£CE 

5E 


4- 


POP 

SI 


0£CF 

58 


4- 


POP 

AX 


0 £D 0 

EB 

01 90 

4* 


JMP NEAR 

! PTR ??00£4 


0£D3 



4* 

PC_CODE 

ENDS 



0£C3 



4- 

PC__DATA 

SEGMENT 

PUBLIC ’DATA’ 


^ClCuf 

00 


4* 

??00£5 

LRB 

<,OFFSET ??00£7 - OFFSET ??00£6> 


02C4 

0B 


4* 





0£C5 

45 

3A 54 4C £D 4E 

4- 

?? 00£6 

DB 

"E:TL—NQ-CRQ" 


0£D0 



4- 

PC_DATA 

ENDS 



0£D3 



4* 

PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 


0£D3 



4- 

??00£4 

LABEL 

NEAR 


0£D3 

C3 



9 

RET 

;Ret urn t o ca 11 er 


0£D4 




TL_NQ_CRQ ENDP 







5 

-************************************************************************** 





5 Mod u1e 

name; Set Disk Status (TL-SET-ERR) 

1 

i 





5 

«Version 

i: £.0 


i 

1 

1 





•> 

;Last Update: 14 

November 1983 

J 

f 




5 Functions The Bet Disk Status routine <TL~~SET-~ERR) is called by 
5 any routine which wants to set the current disk status. 

5 Field RGL DSC of the CRO header is set to the value of the 

5 byte supplied as input. 

5 

5 Procedures Program Logic Description, Section E.5 
5 Called by: See function description 
;Routines called: None 

M 

9 

;Input: (AL) = Byte to be inserted 

t* 

? 

I Out puts None 
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;Error procedures: None I 
5 » 
-Written by: R„B„ Talmadge, Computer Technology Ltd I 
H I 
5 Updates: None I 

5 i 
- *********************************************************************** 


02D4 




TL, 

_SET_ 

ERR PROC 

: NEAR 





5 


TRACE 

S+E:TL-SET-ERR 

02D4 

80 

3E 000B E 00 

4* 



CMP BYTE 

! PTR EC.Tree,$True 

02D9 

75 

0F 

4* 



JNE 

??0028 

02DB 

50 


4- 



PUSH 

AX 

02DC 

B0 

00 

4- 



MOV 

AL, 0 

02DE 

58 


4* 



PUSH 

SI 

02DF 

BE 

02D0 R 

4- 



MOV 

SI,OFFSET ??0029 

02E2 

ES 

0000 E 

4- 



CALL 

EM_TRACE 

02E5 

5E 


4- 



POP 

SI 

02E6 

58 


4* 



POP 

AX 

02E7 

EB 

01 90 

4- 



JMP NEAR 

! PTR ?70028 

02EA 



4* 

PC. 

_CODE 

ENDS 


02D0 



4- 

PC. 

_DATA 

SEGMENT 

PUBLIC ’DATA’ 

02D0 

00 


4* 

??0029 

LRB 

<,OFFSET 77002B - OFFSET 77002A) 

02D1 

0E 


4* 





02D2 

53 

2B 45 3A 54 4C 

4* 

??002A 

DB 

"S+E:TL-SET-ERR" 

02E0 



4* 

PC. 

_DATA 

ENDS 


02EA 



4* 

PC. 

_CQDE 

SEGMENT 

PUBLIC ’CODE’ 

02EA 



4* 

??0028 

LABEL 

NEAR 

02EA 

Ac! 

0005 R 


* 


MOV 

RGL Dsc, AL ;Set new value 

02ED 

C3 





RET 

;Ret urn to caller 

02 EE 




5 

TL 

SET 1 

ERR ENDP 



5 *********************************************************************** 

; Module names Identify Requestor (TL-~GET~-NAD> I 

5 l 

5 Vers ions 2. © I 

5 1 

;Last Updates 14 November 1983 I 

5 l 

5Functions The Identify Requestor routine is called by any Emulator I 

; routine which wants to know the NAD of the requestor of I 

; the current command. The value is extracted from field I 

5 RGL NAD of the CRQ entry for the current command I 

5 l 

;Procedures Program Logic Description, Section 2-6« 3 I 

5 l 

5 Called foys See function description I 

5 

;Routines called: 

§ 

5 Inputs None 


None 
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5 

5 Out put 

: (AL) 

= NAD. The value $FF (any or all machines) is 

i 

l 






5 


returned if there is no current entry in the CRQ 

1 

| 






5 

;Error 

proced ur 

es: None 

1 

j 






9 

;Written by: R. 

B. Talmadge, Computer Technology Ltd 

1 

| 






5 

;Updates: None 


1 

i 






9 

«*********************************************************************** 

02EE 





TL_GET_I 

MAD PROC NEAR 







5 

TRACE 

S:TL—GET-NAD 


02EE 

80 

3E 

000B E 00 

4" 


CMP BYTE PTR EC.Tree,$True 


02F3 

75 

0 F 


4- 


JNE 

??002C 


02F5 

50 



4- 


PUSH 

AX 


8 SF 6 

B0 

00 


4- 


MOV 

AL, 0 


02F8 

56 



4- 


PUSH 

SI 


02F9 

BE 

02E0 R 

4* 


MOV 

SI, OFFSET ??002D 


02FC 

E 8 

0000 E 

4* 


CALL 

EM_TRACE 


02FF 

5E 



4* 


POP 

SI 


0300 

58 



4- 


POP 

AX 


0301 

EB 

01 

90 

4- 


JMP NEAR PTR ??002C 


0304 




4. 

PC_CODE 

ENDS 



02E0 




•4 

PC__DATA 

SEGMENT 

PUBLIC ’DATA’ 


02E0 

00 



4. 

??002D 

LRB 

<,OFFSET ??002F - OFFSET 77002E) 


02 E 1 

0C 



4* 





02E2 

53 

3A 

54 4C 2D 47 

4. 

??002E 

DB 

"S 5 TL—GET—NAD" 


02EE 




4. 

PC_DATA 

ENDS 



0304 




•4 

PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 


0304 




4, 

??002C 

LABEL 

NEAR 


0304 

B0 

FF 



5 

MOV 

AL,*A 11 NAD ;Assume CRQ is empty 


0306 

80 

3E 

0004 R 00 



CMP 

RQ.Qst,$RQmt ;Go test top entry 


030B 

75 

17 




JNE 

NADgo ; if it is not 







5 

TRACE 

X:TL-GET—NAD 


030D 

80 

3E 

000B E 00 

4. 


CMP BYTE PTR EC.Tree,$True 


0312 

75 

0F 


4- 


JNE 

770030 


0314 

50 



4. 


PUSH 

AX 


0315 

B0 

00 


4* 


MOV 

AL, 0 


0317 

56 



4. 


PUSH 

SI 


0318 

BE 

02EE R 

4. 


MOV 

SI, OFFSET ?70031 


031B 

E 8 

0000 E 

4. 


CALL 

EM_TRACE 


03 IE 

5E 



4. 


POP 

SI 


03 IF 

58 



4. 


POP 

AX 


0320 

EB 

01 

90 

4. 


JMP NEAR PTR ??0030 


0323 




4. 

PC CODE 

ENDS 



02EE 




4* 

PC_DATA 

SEGMENT 

PUBLIC ’DATA’ 


02EE 

00 



4. 

770031 

LRB 

(,OFFSET 770033 - OFFSET 770032) 


02EF 

0C 



4, 





02F0 

58 

3A 

54 4C 2D 47 

4. 

??0032 

DB 

" X : TL—GET-NAD 11 


02FC 




4* 

PC_DATA 

ENDS 
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0323 




4* PC_CQDE 

SEGMENT 

PUBLIC ’CODE’ 


0323 




+ ?70030 

LABEL 

NEAR 


0323 

03 



5 

RET 



0324 

53 



5 

NftDgo: 

PUSH 

BX 

;Save working register 

0325 

0 B 

IE 

0008 R 


MOV 

BX,RQ.Top 

5 Fetch offset top entry 

0329 

F6 

07 

80 


TEST 

CBX3.Use,$RQU 

seE 

0*320 

74 

03 



JZ 

NADxt 

;Exit if not queued 

032E 

8 A 

47 

01 


MOV 

AL, CBX3. NAD 

5 Fetch NPD i f queued 

0331 

5B 



NADxt: 

POP 

BX 

5 Restore working register 





9 

TRACE 

E:TL-GET—NAD 



0332 

80 

3E 000B E 00 

4* 


CMP BYTE PTR EC.Tree,$True 

0337 

75 

0F 

4* 


JNE 

770034 

0339 

50 


4* 


PUSH 

AX 

033A 

B0 

00 

4- 


MOV 

AL., 0 

033C 

56 


4* 


PUSH 

SI 

033D 

BE 

02FC R 

4* 


MOV 

SI,OFFSET ?70035 

0340 

E8 

0000 E 

4* 


CALL 

EM TRACE 

0343 

5E 


4- 


POP 

SI 

0344 

58 


4- 


POP 

AX 

0345 

EB 

01 90 

4* 


JMP NEAF 

! PTR 770034 

0348 



4* 

PC_C0DE 

ENDS 


02FC 



4* 

pcIdata 

SEGMENT 

PUBLIC ’DATA’ 

02FC 

00 


4- 

??0035 

LRB 

<,OFFSET 770037 - OFFSET 770036) 

02FD 

0C 


4- 




02FE 

45 

3A 54 40 2D 47 

4- 

??0036 

DB 

“E:TL—GET—NAD" 

030A 



4* 

PC_DATA 

ENDS 


0348 



4* 

PC_C0DE 

SEGMENT 

PUBLIC ’CODE’ 

0348 



4- 

770034 

LABEL 

NEAR 

0348 

C3 



5 

RET 

;Ret urn t o ca11er 


0349 


TL GET NPD ENDP 


Module name: Receive Initial Command Sequence (TL-RCV-ICS) I 


Version: £. 0 


5 Last Update: 14 January 1984 I 

;Functions The Receive Initial Command Sequence routine is the I 

5 interrupt service routine called whenever there is an I 

5 interrupt for socket B0 receive (TST entry RevICSK If ! 

5 the interrupt is completion of a setup receive, no action i 

5 is required* If a message has been received, TL-NQ—CRQ ! 

5 is called to enter the command in the CRQ» If the return I 

; indicates the CRQ is not full, TL-SET-RECV is called to I 

5 restart command reception. I 

5 1 

5 Procedures Program Logic Description, Section £’*6 1 
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Called bys TL-INT-DRVR 

Routines cal leds TL—NO—CRQ, TL—SET—RECV, DM—ERR—LOG, 

TL-BYT-IN, TL-WRD-IN, TL-DTA-IN 

Inputs <SI) = Offset TST entry 

(AL) - Result code from transporter 

Outputs None 


Error proceduress An error message is logged if the completion code I 

from the transporter shows setup not sucessful I 

I 

Written bys R-B. Talrnadge, Computer Technology Ltd l 

I 

Updatess None * 

I 

************************************************************************ 


0349 




TL„RCV_ 

ICS PROC 

: NEOR 





5 

TROCE 

S:TL—RCV—ICS 

0349 

80 

3E 000B E 00 

4* 


CMP BYTE 

: PTR EC.Tree,*True 

034E 

75 

0F 

4* 


JNE 

??0038 

0350 

50 


4- 


PUSH 

OX 

0351 

B0 

00 

4* 


MOV 

OL, 0 

0353 

56 


4- 


PUSH 

SI 

0354 

BE 

0300 R 

4- 


MOV 

SI,OFFSET ??0039 

0357 

E8 

0000 E 

4* 


COLL 

EM_TROCE 

0350 

5E 


4- 


POP 

SI 

035B 

58 


4* 


POP 

OX 

035C 

EB 

01 90 

4- 


JMP NEOF 

! PTR ??0038 

035F 



4- 

PC_C0DE 

ENDS 


0300 



4- 

PC_D0T0 

SEGMENT 

PUBLIC ’DOTO’ 

0300 

00 


+ 

??0039 

LRB 

<,OFFSET ??003B - OFFSET ??003O> 

030B 

0C 


4- 




030C 

53 

30 54 40 2D 52 

4* 

??003O 

DB 

"S:TL—RCV—ICS" 

031 a 



4* 

PC_D0T0 

ENDS 


035F 



4* 

PC_C0DE 

SEGMENT 

PUBLIC ’CODE’ 

035F 



4- 

??0038 

LOBEL 

NEOR 

035F 

3C 

00 


5 

CMP 

OL,$TrOK ;Go to process if 

0361 

74 

2B 



JE 

RCVrnsg ; a message has arrived 

0363 

30 

FE 



CMP 

OL,$TrSS ;Just exit if this 

0365 

75 

17 



JNE 

RCVerr ; is a setup completion 





5 

TROCE 

X:TL—RCV-ICS 

0367 

80 

3E 000B E 00 

4. 


CMP BYTE 

: PTR EC.Tree,$True 

036C 

75 

0F 

4* 


JNE 

??003C 

036E 

50 


4- 


PUSH 

OX 

036F 

B0 

00 

4* 


MOV 

OL, 0 

0371 

56 


4. 


PUSH 

SI 

0372 

BE 

0318 R 

4* 


MOV 

SI,OFFSET ??003D 

0375 

E8 

0000 E 

4* 


COLL 

EM TROCE 

0378 

5E 


4* 


POP 

SI 
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0379 

50 


4* 


POP 

AX 

037ft 

EB 

01 90 

4- 


JMP NEftR PTR ??003C 

037D 



4. 

PC_C0DE 

ENDS 


0310 



4. 

PC_DftTft 

SEBMENT 

PUBLIC ’DATA’ 

0318 

00 


4. 

??003D 

LRB 

<,OFFSET ??003F - OFFSET ??003E> 

0319 

0C 


4. 




031 ft 

50 

3ft 54 40 £D 5£ 

4. 

??003E 

DB 

"XsTL-RCV-ICS" 

03£6 



4. 

PC_DftTft 

ENDS 


037D 



4* 

PC_CQDE 

SEGMENT 

PUBLIC ’CODE’ 

037D 



4 

??003C 

LftBEL 

NEftR 

037D 

03 



5 

RET 






5 

5 

If the 

previous setup failed, decrement the retry count 





«• 

and retry the setup- If the count goes to zero, log an 





M 

9 

error message and exit? command reception will then cease 

037E 

FE 

40 10 


RCVerr: 

DEC 

BYTE PTR CSI3.TT_0rb 

0301 

74 

03 



JZ 

RCVstp ;Issue message if failure 

0303 

EB 

47 90 



JMP 

RCVxit ; else go to retry 

0300 




5 

RCVstp: 

LOG 

$MND0£ 5 Log the message 

0306 

50 


4 


PUSH 

AX 

0307 

B0 

0 ft 

4. 


MOV 

AL, &MND05S: 

0309 

E0 

0000 E 

4 


CftLL 

DMJERR^LOB 

030C 

50 


4* 


POP 

AX 

030D 

03 



• 

RET 

5 Ret urn to the Driver 





9 

5 

Reenter 

here if a message has been received to 





5 

■ 

fetch data from transporter memory and store in CRQ 

030E 

0B 

70 06 


9 

RCVmsg 2 

MOV 

DI,CSI3.RR ;Fetch location result record 

0391 

0D 

5D 01 



LEft 

BX, CDI 1 «Shost ^Position to Host data 

0394 

E0 

0000 E 



CftLL 

TLJBYT^IN 5 Fetch the NAD 

0397 

fta 

0£3F R 



MOV 

TmpICS.NAD,AL ; and store in temp area 

039ft 

03 

07 04 


5 

ftDD 

DI,TYPE RRKD ^Position to control area 

039D 

0D 

5D 0£ 



LEft 

BX, CDI3 -ELofRP $Fetch the length 

03ft0 

E0 

0000 E 



CftLL 

TLWRD_IN 5 of the expected reply 

03ft3 

3D 

0£11 



CMP 

AX,$MaxTBD ;Assure value not 

03ft6 

7E 

03 



JLE 

RCVrnsh 5 not larger than 

03ft© 

B0 

0£11 



MOV 

AX,$MaxTBD ; we can transmit 

03ftB 

ft3 

0£40 R 


RCVrnsh 2 

MOV 

TmpICS.Len,AX ;Store in temp area 

03ftE 

BF 

0£3E R 


9 

MOV 

DI,OFFSET TmpICS ;Fetch tmp stg offset 

03B1 

0D 

7D 04 



LEft 

DI, CDI II« Crnnd 5 Point to command field 

03B4 

B9 

0004 



MOV 

CX, $RQCsze ; Set count 

03B7 

0B 

50 00 



MOV 

BX, IIS1 1 u Dt 1 5 Transporter address data 

03BO 

E0 

0000 E 



CALL 

TL_DTA_IN 5 Fetch the command data 

03BD 

0B 

FE 


5 

MOV 

DI,SI 5 Save offset to TST entry 

03BF 

BE 

023E R 



MOV 

SI,OFFSET TmpICS 5 Replace by tmp stg offset 

0302 

E0 

0£3ft R 



CftLL 

TL_NQ_CRQ 1 Request enqueue of command 


5 

5 Restart reception of commands if CRQ is not full 
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03C5 

3C 

FF 

CMP 

PL,*RQful 

% Just exit if 

03C7 

75 

01 

JNE 

RCVrst 

5 the queue is full 

03C9 

C3 


RET 



03CA 

SB 

F7 

RCVrst: MOV 

SI, DI 

5 1f not, rest ore TST offset, 

03CC 

B0 

01 

RCVxit: MOV 

PL,$False 

5 set for no ORB, 

03CE 

ES 

0000 E 

COLL 

TL__SET__RECV 

5 Request restart of recept ion 


TRACE TL-RCV-ICS 


03D1 

80 

3E 000B E 00 

4* 


CMP BYTE 

; PTR EC.Tree,$True 

03D6 

75 

0F 

4* 


JNE 

770040 

03D8 

50 


4* 


PUSH 

PX 

03D9 

B0 

00 

4- 


MOV 

PL, 0 

03DB 

56 


4* 


PUSH 

SI 

03DC 

BE 

0326 R 

4* 


MOV 

SI,OFFSET 770041 

03DF 

E 8 

0000 E 

4* 


CPLL 

EM__TRPCE 

03E£ 

5E 


4- 


POP 

SI 

03E3 

58 


4- 


POP 

PX 

03E4 

EB 

01 90 

4- 


JMP NEPR 

' PTR 770040 

03E7 



4* 

PC CODE 

ENDS 


0326 



4- 

PC_DPTR 

SEGMENT 

PUBLIC ’DPTP’ 

0*326 

00 


4- 

?70041 

LRB 

C, OFFSET 770043 -- OFFSET ??004£> 

0327 

0P 


4 




032Q 

54 

4C 2D 52 43 56 

4- 

770042 

DB 

■'TL-RCV-ICS" 

033£ 



4- 

PC_DPTP 

ENDS 


03E7 



4* 

PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 

03E7 



4- 

770040 

LPBEL 

NEPR 

03E7 

C3 



5 

RET 

;Ret urn t o ca 11 er 

03E8 




TL RCV 

ICS ENDP 


5 Module names Send Network Address (TL-SEND—NAD) I 

5 I 

§ Versions £.0 I 

; 1 

5 Last Updates 14 November 1983 l 

5 1 

5 Functions The Send Network Address routine is called by the Name ! 

5 Lookup interrupt service driver when a request is received ! 

5 for the NAD of a disk server- TL-SEND-NAD sends back an I 

; ’invalid commmand* indication, as specified by the disk I 

5 server protocol- No action is taken to assure that the I 

; reply is received. I 

5 1 

procedures Program Logic Description, Section £.6.4 I 

5 1 

;Called Bys TL-RCV-NLM I 

; 1 

;Routines called: TL-SET-SEND, TL-WRD-QUT, TL-BYT-OUT ! 

i 1 

§ Inputs None 1 

9 




« 
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i 

1 





5 Out puts None 

1 

1 

i 






5 

5 Error procedur 

es s None ! 

1 


i 





5 Written bys R. 

B n Talmadge, Computer Technology Ltd 1 

1 

€ 

t 





5 

;Updatess None 

1 

i 

€ 






7 

- *********************************************************************** 


« 

03E8 




TL„SEND_NAD PROC NEAR 

€ 

i 





TRACE 

S:TL—SEND-NOD 

& 


03E0 

80 

3E 000B E 00 

4 

CMP BYTE PTR EC.Tree,$True 

1 


03ED 

75 

0F 

4* 

JNE 

770044 


f 

03EF 

50 


4* 

PUSH 

AX 

g 


03F0 

B0 

00 

4- 

MOV 

AL, 0 

1 


03F2 

56 


4* 

PUSH 

SI 


f 

03F3 

BE 

0 v.i vie! R 

4* 

MOV 

SI, OFFSET 7 70045 


■1 

03F6 

E 8 

0000 E 

4- 

CALL 

EM TRACE 

1 


03F9 

5E 


4- 

POP 

SI 


* 

03FP 

58 


4* 

POP 

PX 

M r 

m 

03FB 

EB 

01 90 

4 . 

JMP NEAR PTR ??0044 

I 


03FE 



4- 

PC_CODE ENDS 



f 

033E 



4 

PCJDATA SESMENT 

PUBLIC ’DATA’ 

m 

m-' 

0332 

00 


♦4 

??0045 LRB 

<,OFFSET 770047 - OFFSET 770046) 

1 


0333 

0D 


4* 




1 

0334 

53 

30 54 4C 2D 53 

4* 

? 70046 DB 

" S s TL—SEND—NAD " 

A 

St- 

0341 



4* 

PC_DATA ENDS 


f 


03FE 



4 

PC CODE SEGMENT 

PUBLIC ’CODE’ 


f 

03FE 



4 

770044 LABEL 

5 

NEAR 

€ 

1 





5 

; 1 Not e : 

The data to be transmitted, which is constant, 1 

| 

•m. 





5 ! 

was inserted into transporter memory by the 1 

1 

f 





1 

i 

j 

i 

1 

| 

3r> tr* 

initialization routine TL—INIT—TLD (Section £.8)1 

S 

m 

03FE 

80 

0E 0213 R 


MOV 

CL,MT.NPD 5 Fetch requestor network address 

1. 

| 

0402 

8 B 

IE 0004 E 


MOV 

BX,TrmNflD.CCB ^Compute transporter location 

m 


0406 

8 D 

5F 0B 


LEA 

BX, CBX3 . Dhost 5 to place the address 

i 


0409 

E 8 

0000 E 


CALL 

TL„BYT_OUT 5 Put into CCB 


1 

040C 

B 8 

0001 


MOV 

AX,$False ; Indicate there is no ORB 

€ 


040F 

BE 

0000 E 


MOV 

SI, OFFSET TrrnNAD ;Fetch TST entry offset 


t 

04 IS 

E8 

0000 E 


CALL 

TL_SET_9END ; and go do transmission 

€ 






TRACE 

E : TL—SEND-NAD 


• 

0415 

80 

3E 000B E 00 

4 

CMP BYTE PTR EC.Tree,$True 

M 


0410 

75 

0F 

4 

JNE 

770048 

W- 


041C 

50 


4 

PUSH 

AX 


4 

04 ID 

B0 

00 

4 

MOV 

AL, 0 

m 


041F 

56 


4 

PUSH 

SI 

m. 


04S0 

BE 

0341 R 

4 

MOV 

SI,OFFSET 770049 


« 

f 

0423 

E8 

0000 E 

4 

CALL 

EM_TR0CE 

f 

f 
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04£6 

5E 



"+* 


POP 

SI 

®4£7 

58 



+ 


POP 

AX 

04£8 

EB 

01 

90 

4 - 


JMP NEAR PTR ??0048 

04£B 




*+• 

PC_CODE 

ENDS 


0341 




4. 

PC DflTft 

SEGMENT 

PUBLIC ’DATA’ 

0341 

00 



4 

? ? 0049 

LRB 

<, OFFSET ??004B 

034£ 

0D 



4 




0343 

45 

3 PI 

54 4C £D 53 

4 

??004ft 

DB 

"E:TL-SEND-NAD" 

0350 




4 

PC DflTft 

ENDS 


04£B 




4 

PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 

04£B 




4. 

??0048 

LABEL 

NEAR 

04EB 

C3 




5 

RET 



- OFFSET ??004A> 


;6o back to driver 


The following routine is the TL-INT-NAD interrupt service routine, 
which is an integral part of the TL-SEND-NAD routine- It is called 
by the interrupt service driver to handle the interrupts generated 
by the TL-SEND—NAD transmissions. 


04£C 




TL 

_INT_ 

NAD LABEL NEAR 





5 


TRACE 

S+E:TL-INT-NAD 

04£C 

80 

3E 000B E 00 

4 



CMP BYTE PTR EC.Tree,*True 

0431 

75 

0F 

4 



JNE 

??004C 

0433 

50 


4 



PUSH 

AX 

0434 

B0 

00 

4 



MOV 

AL, 0 

0436 

56 


4 



PUSH 

SI 

0437 

BE 

0350 R 

4 



MOV 

SI,OFFSET ??004D 

043A 

E8 

0000 E 

4 



CALL 

EM_TRACE 

043D 

5E 


4 



POP 

SI 

043E 

58 


4 



POP 

AX 

043F 

EB 

01 90 

4 



JMP NEAR PTR ??004C 

044£ 



4 

PC 

CODE 

ENDS 


0350 



4 

PC. 

JDATA 

SEGMENT 

PUBLIC ’DATA’ 

0350 

00 


4 

??004D 

LRB 

<, OFFSET ?'?004F - OFFSET ??004E> 

0351 

0E 


4 





035£ 

53 

£B 45 3A 54 4C 

4 

??004E 

DB 

"S+E:TL-INT-NAD" 

0360 



4 

PC. 

_DATA 

ENDS 


044E 



4 

PC 

CODE 

SEGMENT 

PUBLIC ’CODE’ 

044£ 



4 

??004C 

LABEL 

NEAR 

044£ 

C3 



9 


RET 

;Do nothing (Well 

0443 




5 

TL_ 

.SEND. 

_NAD ENDP 


that was easy) 


**•****#********#**•*#*****#****#**#*#*********#*##**#*******#****#***♦**•* 
Module names Name Lookup Message Processing Routines I 

I 


Versions 2. 0 


i 

I 


Last Updates 14 November 1983 


i 


Functions The Name Lookup Message Processing routines are called by I 
the Name Lookup Receive driver to carry out the response 

required for the message- There are five routines; 


I 
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TL-RCV-HI responds to a Hello message by generating an 
AddActive command 

TL-RCV-BYE responds to a Goodby message by generating a 
De1et eActive command 

TL-RCV-WHO responds to a Who are you? message by sending 
an Identification message in response 
TL-RCV-WHERE responds to a Where are you? message by 

an Identification message in response if the specified 
name corresponds to the Emulator 
TL-RCV-IDEN responds to an Identification message by 
generating an AddActive command 

Procedures Bee Program Logic Description, Sections £.7.1 - £.7.5 

Called bys TL-RCV-NL.N 

Rout ines called s TL-NQ-CRQ, TL-SEND-NL.M 

Inputs (SI) = Offset of TST entry for socket 80 receive (RcvNLN) 

Outputs (NT.NOD) = Operation start indicator 


Error procedures: None 

Written bys R. B. Talrnadge, Computer Technology Ltd 


Updatess None I 

i 

*********************************************************************** 


0443 


TL NLN SRVC PROC NEAR 


0443 


TL RCV HI LABEL NEAR 


0443 


m 

TL RCV IDEN LABEL NEAR 


9 


0443 

00 

3E 000B E 00 

4 * 


0440 

75 

0F 

4 * 


044A 

50 


4 * 


044B 

B0 

00 

4 * 


044D 

56 


4 * 


044E 

BE 

0360 R 

4 * 


0451 

E0 

0000 E 

4 * 


0454 

5E 


4 - 


0455 

50 


4. 


0456 

EB 

01 90 

4 * 


0459 



4. 

PC__CODE 

0360 



4. 

PC_DATA 

0360 

00 


4. 

??0051 

0361 

11 


4 * 


036K 


SB 45 3A 54 4C 

4 * 

??005£ 

0373 



4* 

PC__DATA 

0459 



4 

PC CODE 


TRACE S+E:TL-RCV-HI/DEN 

CMP BYTE PTR EC.Tree,$True 

JNE ??0050 

PUSH AX 

MOV AL,0 

PUSH SI 

MOV SI,OFFSET ??0051 

CALL EM_TRACE 

POP SI 

POP AX 

JMP NEAR PTR ??0050 

ENDS 

SEGMENT PUBLIC ’DATA’ 

LRB <,OFFSET ??0053 - OFFSET ??005£> 

DB "S+E;TL-RCV-HI/DEN" 

ENDS 

SEGMENT PUBLIC ’CODE’ 
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0459 



4" 

??0050 

LABEL 

NEAR 

0459 

C 6 

06 0217 R 03 


9 

MOV 

MT.MT Mod,$MTadd 5 Insert AddActive Command 

045E 

BE 

0212 R 


HI nq s 

MOV 

SI,OFFSET MT ;Point to ORB in NLMT 

0481 

E 8 

023A R 



CALL 

TL__NQ__CRQ ; Insert command into CRQ 

0484 

C3 




RET 

; Ret urn 10 driver 

0465 




5 

tl_rcvj 

BYE LABEL NEAR 





5 

TRACE 

S+E:TL—RCV-BYE 

0465 

80 

3E 000B E 00 

Hh 


CMP BYTE 

: PTR EC.Tree,$True 

046A 

75 

0 F 

4- 


JNE 

770054 

046C 

50 


4* 


PUSH 

AX 

046D 

B0 

00 

Hh 


MOV 

AL, 0 

046F 

56 


4* 


PUSH 

SI 

0470 

BE 

0373 R 

4* 


MOV 

SI,OFFSET 770055 

0473 

E 8 

0000 E 

4* 


CALL 

EM_TRACE 

0476 

5E 


4* 


POP 

SI 

0477 

58 


*4 


POP 

AX 

0478 

EB 

01 90 

4* 


JMP NEAR 

1 PTR 770054 

047B 



4- 

PC CODE 

ENDS 


0373 



4- 

PC_DATA 

SEGMENT 

PUBLIC ’DATA’ 

0373 

00 


4- 

?70055 

LRB 

<,OFFSET 770057 - OFFSET 770056) 

0374 

0E 


4- 




0375 

53 

2B 45 3A 54 4C 

4- 

770056 

DB 

"S+E : TL— RCV-BYE" 

0383 



4- 

PC„DATA 

ENDS 


047B 



4* 

PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 

047B 



Hh 

770054 

LABEL 

NEAR 

047B 

C 6 

06 0217 R 00 


5 

MOV 

MT.MT_Mod,$MTDel ;Insert DeleteActive command 

0480 

EB 

DC 



JMP 

HInq ;go put into CRQ 

0482 




5 

TL„RCVJ 

WHO LABEL NEAR 





5 

TRACE 

S+E:TL—RCV—WHO 

0482 

80 

3E 000B E 00 

•4 


CMP BYTE 

: PTR EC.Tree,$True 

0487 

75 

0F 

4- 


JNE 

770058 

0489 

50 


4* 


PUSH 

AX 

048A 

B0 

00 

4* 


MOV 

AL, 0 

048C 

56 


4* 


PUSH 

SI 

048D 

BE 

0383 R 

4* 


MOV 

SI,OFFSET 770059 

0490 

E 8 

0000 E 

4* 


CALL 

EM TRACE 

0493 

5E 


Hh 


POP 

SI 

0494 

58 


4* 


POP 

AX 

0495 

EB 

01 90 

4* 


JMP NEAR 

! PTR 770058 

0498 



4* 

PC„CODE 

ENDS 


0383 



4- 

PC_DATA 

SEGMENT 

PUBLIC ’DATA’ 

0*383 

00 


4- 

770059 

LRB 

<,OFFSET 77005B - OFFSET 77005A) 

0384 

0E 


4- 




0385 

53 

2B 45 3A 54 4C 

4- 

77005A 

DB 

" S+E :TL— RCV—WHO" 

0393 



4* 

PC_DATA 

ENDS 


0498 



4- 

PC CODE 

SEGMENT 

PUBLIC ’CODE’ 

0498 



4* 

770058 

LABEL 

NEAR 

0498 

80 

3E 0223 R 01 


«« 

9 

CMP 

MT.MT_Dev,*NLDsk 5 If disk server wanted 
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049D 

74 

08 





JE 

WHOsnd 


; send back ID 

049F 

80 

3E 0££3 

R 

FF 



CMP 

MT. MT_Dev, *NLDr.y 


;Do same if anybody 

0404 

74 

01 





JE 

WHOsnd 


; will do 

0406 

03 






RET 



5 Otherwise exit 

0407 

80 

0E 0£13 

R 



5 

WHOsnd: 

MOV 

CL,MT.MT„N0D 


;Fetch NPD 

04OB 

BE 

0££C R 





MOV 

SI,OFFSET IDrnsg 


5 Point to Iden message 

04OE 

E 8 

0000 E 





COLL 

TL_SEND_NLM 


?Send the reply 

04B1 

03 





M 

1 

RET 



;Go back to driver 

04B£ 






TL_RCV_ 

WHERE L0BEL NEAR 









5 

TR0CE 

S+E:TL—RCV—WHERE 



04BS 

80 

3E 000B 

E 

00 

~h 


CMP BYTE PTR EC.Tree,$True 



04B7 

75 

0F 



4 * 


JNE 

??005C 



04B9 

50 




4 * 


PUSH 

OX 



04BO 

B 0 

00 



4 - 


MOV 

OL, 0 



04BC 

56 




4 - 


PUSH 

SI 



04BD 

BE 

0393 R 



4 - 


MOV 

SI,OFFSET ??005D 



04C0 

E 8 

0000 E 



4 * 


COLL 

EM TRACE 



04C3 

5E 




4 * 


POP 

SI 



0404 

58 




4 - 


POP 

OX 



0405 

EB 

01 90 



4 * 


JMP NEAR PTR ??005C 



0408 





4 " 

PC_C0DE 

ENDS 




0393 





4 * 

PC_D0T0 

SEGMENT 

PUBLIC ’DATA’ 



0393 

00 




4 * 

??005D 

LRB 

<,OFFSET ??005F - OFFSET 

??005E> 

0394 

10 




4 - 






0395 

53 

£B 45 30 

54 40 

4 . 

??005E 

DB 

"S+E:TL-ROV-WHERE" 



0305 





4 * 

PC__D0T0 

ENDS 




0408 





4 * 

PC_C0DE 

SEGMENT 

PUBLIC ’CODE’ 



0408 





4 . 

??005C 

LABEL 

NEAR 



0408 

B9 

0000 




5 

MOV 

CX,$NarneLN ;Set 

count to length of name 

04CB 

BF 

00££ E 





MOV 

DI, OFFSET EC.Serv 


5 Offset to Emulator name 

04CE 

BE 

0£18 R 





MOV 

SI,OFFSET MT* MT_Name 

5 Offset to name sought 

04D1 

FC 






OLD 




04DE 

F3/ 

06 





REPE 

CMPSB ;If 

the 

names are the 

04D4 

74 

00 





JE 

TL RCV_WH0 ; same, 

go test for Iden rnsg 

04D6 

03 






RET 

5 If 

not, 

return to driver 

04D7 






TL NLM ! 

3RVC ENDP 




« 

«*********#*****^**M-#********^**#****#******##*****#*#****###*##**#*#** X -«* 

;Module name: Receive Name Lookup Message (TL-RCV-NLM) I 

5 1 

5 Versions £« 0 I 

5 l 

5 Last Updates 14 November 1983 I 

? i 

^Functions The Receive Name Lookup Message routine is the interrupt I 

5 service routine called whenever there is an interrupt for I 

5 socket 80 receive (TST entry RcvNLM) „ If the interrupt is I 

5 completion of a setup receive, no action action is taken* I 

; If a message has been received, TL-RCV-NLM determines the I 
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message type and invokes an appropriate messare processing 
routines. 


;Procedure: Program Logic Description, Section £.7 

;Called by: TL-INT-DRVR 
5 

;Routines called: TL-SET-RECV, DM-ERR-LOB, TL-BYT-IN, 
? TL-WRD-IN, TL-DTA-IN, L.C-INT-SRVR, 

5 


Message Processing routines 


5 Input 


5 Out put 


(SI) * Offset TST entry 

(PL) » Result code from transporter 

None 


5 Error procedures: fin error message is logged if the completion code 
; from the transporter shows setup not sucessful 

5 

;Written by: R« B. Talmadge, Computer Technology Ltd 
5 

;Updates: None 

5 

:*********************************************************************** 


04D7 




TL_RCVJ 

NLM PROC NEAR 






5 

TRACE 

S:TL—RCV-NLM 


04D7 

80 

3E 000B E 00 

4* 


CMP BYTE PTR EC.Tree,$True 

04 DC 

75 

0F 

4* 


JNE 

?70060 


04DE 

50 


4- 


PUSH 

AX 


04DF 

B0 

00 

4- 


MOV 

AL, 0 


04E1 

56 


4- 


PUSH 

SI 


04E£ 

BE 

03A5 R 

4- 


MOV 

SI,OFFSET 770061 


04E5 

E 8 

0000 E 

4- 


CALL 

EM_TRACE 


04E8 

5E 


4* 


POP 

SI 


04E9 

58 


4* 


POP 

AX 


04EA 

EB 

01 90 

4* 


JMP NEAR PTR 77006© 


04ED 



4* 

PC_CQDE 

ENDS 



03A5 



4* 

PC__DATA 

SEBMENT 

PUBLIC ’DATA’ 


03A5 

00 


4* 

??0061 

LRB 

<, OFFSET 770063 

- OFFSET ??006£> 

03A6 

0C 


4- 





03A7 

53 

3A 54 4C £D 5£ 

4* 

??006£ 

DB 

"S:TL-RCV-NLM" 


03B3 



4* 

PC_DATA 

ENDS 



04ED 



4- 

PC„CODE 

SEBMENT 

PUBLIC ’CODE’ 


04ED 



4* 

7 70060 

LABEL 

NEAR 


04ED 

80 

3C 00 


5 

CMP 

CSI 3.PN,$True 

5 If message being solicited 

04F0 

75 

03 



JNE 

NLMrnsg 

5 transfer to Local Command 

04F£ 

E9 

0000 E 



JMP 

LC_INT_SRVR 

5 interrupt service rtn 

04F5 

3C 

00 


5 

NLMrnsg: 

CMP 

AL,$TrOK 

?Bo to process if 

04F7 

74 

£C 



JE 

NLMmgl 

; a message has arrived 

04F3 

3C 

FE 



CMP 

AL,$TrSS 

5 Just exit if this 

04FB 

75 

17 



JNE 

NLMerr 

5 is a setup completion 
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( 

i 

I 

« 

< 

I 

I 

i 

* 

« 

* 

« 

f 

i 

f 

I 

I 

i 

f 

« 

i 

I 


0520 

0523 

0524 


E0 0000 E 

58 

C3 


0535 8B 7C 06 


TRACE 


X :TL--RCV-NL.M 


04FD 

80 

3E 000B E 00 

4* 


CMP BYTE PTR EC.Tree,$Tr 

0502 

75 

0F 

4* 


JNE 

??0064 

0504 

50 


4- 


PUSH 

AX 

0505 

B0 

00 

4- 


MOV 

AL, 0 

0507 

56 


4- 


PUSH 

SI 

0500 

BE 

03B3 R 

4* 


MOV 

SI,OFFSET ??0065 

050B 

E 8 

0000 E 

4* 


CALL 

EM TRACE 

050E 

5E 


4* 


POP 

SI 

050F 

58 


4- 


POP 

AX 

0510 

EB 

01 90 

4* 


JMP NEAR PTR ??0064 

0513 



4* 

PC_CODE 

ENDS 


03B3 



4* 

PC_DATA 

SEGMENT 

PUBLIC ’DATA’ 

03B3 

00 


4* 

??0065 

LRB 

<, OFFSET ??0067 

03B4 

0C 


4- 




03B5 

58 

3A 54 4C 2D 52 

4* 

??0066 

DB 

"X sTL-RCV-NLM" 

03C1 



4- 

PC__DATA 

ENDS 


0513 



4* 

PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 

0513 



4* 

??0064 

LABEL 

NEAR 

0513 

LwF 



5 

RET 






5 

5 

If the 

previous setup fa 





a 

5 

arid retry the set up* If 





5 

error message and exit? i 

0514 

FE 

4C 10 


5 

NLMerrs 

DEC 

BYTE PTR CSI3.TT 

0517 

74 

04 



JZ 

NLMst p 

0519 

E 8 

0000 E 



CALL 

TL__SET_RTRY 

051C 

C -..j 




RET 


051D 




5 

NLMstp: 

LOG 

$MND04 

051D 

50 


4* 


PUSH 

AX 

05 IE 

B0 

0C 

4* 


MOV 

AL,$MND04 


OFFSET ??0066> 


log an 


_ 0 r b 

; Issue message if failure 
5 If not, request retry 
; and return to caller 

;Log the message 


+ 

+ 


CALL 

POP 

RET 


DM_ERR__LOG 

AX 


;Ret urn to the Driver 


Reenter here if a message has been received. The 
protocol ID is tested and the message discarded if 
the ID does not match that of a Name Lookup message. 


0525 

SB 

5C 08 

NLMrngls MOV 

BX, CSI3.Dtl 

;Transporter address of data 

0528 

8 D 

IF 

LEA 

BX, CBX3.Pid 

5 Position to protoco 1 ID 

052A 

E 8 

0000 E 

CALL 

TL_WRD__IN 

§Fetch the ID 

052D 

3D 

01FE 

CMP 

AX, $ProID 

5 If not Name Lookup 

0530 

74 

03 

JE 

NLMrng2 

^ go restart reception 

0532 

E9 

05C3 R 

JMP 

NLMrst 



If Name Lookup message, the message data is placed into 
the Name Lookup Table, and the appropriate processing 
routine is invoked. 


NLMrngE: MOV 


DI, ESI 3. RR 


;Transporter address res rkd 


€ 

l 

f 

f 

i 

< 

I 

f 

r 

t 

i 

t 

i 

i 

i 

€ 

€ 

€ 

C 

t 

* 

f 
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0538 

053B 

053E 

0541 

0544 

0547 

054A 

054D 

0550 

0553 

0556 

0559 

055C 

055F 

0562 

0565 

0568 


056B 

0570 

0573 

0576 

0578 

057B 

057E 

0580 

0583 

0586 

0588 

058C 

058F 

0591 

0595 

0598 

059A 
059E 
05 A1 

05A3 


PAGE 1-41 


8 D 

5D 

01 


E8 

0000 

E 

AS 

0S1 

wF 

R 

SB 

7C 

08 


8 D 

5D 

04 


E8 

0000 

E 

AS 

0 c!c!c! 

R 

8 D 

5D 

06 


E8 

0000 

E 

AS 

0SS 

:3 

R 

8 D 

5D 

08 


BF 

0S18 

R 

B9 

000A 


E8 

0000 

E 

8 B 

7C 

08 


8 D 

5D 

02 


ES 

0000 

E 


C6 

06 

0S17 

R 

BF 

03E8 R 


80 

FC 

01 


74 

SB 



BF 

0443 R 


80 

FC 

00 


74 

S3 



BF 

04£ 

,5 R 


80 

FC 

FF 


74 

IB 



8 B 

3E 

0443 

R 

80 

FC 

10 


74 

12 



8 B 

3E 

048£ 

R 

80 

FC 

©a 


74 

09 



SB 

3E 

04ea 

R 

80 

FC 

03 


75 

02 



FF 

D7 




LEA BX, CDI3.Ghost 

CALL TL BYT_IN 

MOV MT. MT„NAD,AL 


Position to sender NAB 
Fetch NAD and 
save in NLMT 


MOV DI, CSI3. Dtl 

LEA BX, CDID.Sre 

CALL TL_WRD_IN 

MOV MT.MT„Src,AL 

LEA BX, CDIU.Dev 

CALL TL_WRD._IN 

MOV MT.MT_Dev,AL 


Transporter address of data 
Position to source 
Fetch source and 
place into NLMT 
Position to device type 
Fetch type and 
place into NLMT 


LEA BX.CDI3.NL Name -.Position to Name 


MOV 

DI, OFFSET MT. MT 

MOV 

CX,$NameLN 

CALL 

TL_DTA_IN 

MOV 

DI, ESI 3 . Dtl 

LEA 

BX, CDI3.Mgt 

CALL 

TL WRD IN 


Name 

;Number characters 
;Fetch name to NLMT 

;Compute transporter 
; address message type 
;Bring it in 


Because the message type codes are irregular and few in 
number, dispatching is carried out by a series of tests 
rather than by a transfer table. 


MOV 


MT.MT_Mod,$TrSU 


5 lnitialize Operation code 


MOV DI,OFFSET TL_SEND_NAD 

CMP AH,$NLany ;Any disk server? 

JE NLMcal ; If so, send NAD 


MOV 

CMP 

JE 


DI,OFFSET TL RCV HI 


AH,$NLHi 
NLMcal 


; He 11 o rnessa g e ? 

; if so, add active 


MOV 

CMP 

JE 

MOV 

CMP 

JE 

MOV 

CMP 

JE 

MOV 

CMP 

JNE 

NLMcal5 CALL 


DI,OFFSET TL_RCV_BYE 


AH,*NLBye 
NLMcal 


;Goodbye message? 


if so, delete active 


DI, \TL_ RCV_IDEN 
AH, iwE rd ri— 
NLMcal 


5 Identification? 

5 if so, add active 


DI ,^^V„WH0^ 
AH, ^NLlCnTo - ” 


NLMcal 


;Who are you? 

; if so, send ID 


NLMrtn 

DI 


;Where are you? 

5 Ignore message if not 

;Ca11 processing routine 


offiZj- 





Ret urn here from all message processing routines 
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05A5 

80 

3E 0217 R FF 


NLMr t r» s 

CMP 

MT.MT„MOD,$TrSU ;Restart reception if 

05AA 

74 

17 



JE 

NLMrst ; no command or message, 





5 

TRACE 

El:TL—RCV-NLM 

05AC 

80 

3E 000B E 00 

+ 


CMP BYTE 

! PTR EC.Tree,$True 

05B1 

75 

0F 

4 


JNE 

??0068 

05B3 

50 


4 * 


PUSH 

AX 

05B4 

B0 

00 

4 


MOV 

AL, 0 

05B6 

56 


4 


PUSH 

SI 

05B7 

BE 

03C1 R 

4 


MOV 

SI,OFFSET ??0069 

05BA 

E8 

0000 E 

4 


CALL 

EM TRACE 

05BD 

5E 


4 


POP 

SI~ 

05BE 

58 


4 


POP 

AX 

05 BF 

EB 

01 90 

*+* 


JMP NEAR 

! PTR ??0068 

05C2 



-h 

PC_CODE 

ENDS 


03C1 



4 

PCJDfiTfi 

SEGMENT 

PUBLIC ’DATA’ 

03C1 

00 


4 

??0069 

LRB 

<,OFFSET ??006B - OFFSET ??006A> 

03C2 

0D 


4 




03C3 

45 

31 3A 54 4C 2D 

•+• 

??006A 

DB 

"El:TL-RCV-NLM" 

03D0 



4 

PCJOftTfi 

ENDS 


05C2 



4 

PC CODE 

SEGMENT 

PUBLIC ’CODE’ 

05C2 



4 

??0068 

LABEL 

NEAR 

05C2 

C3 



5 

RET 

;Otherwise just exit 





5 

5 

Reentry 

point to restart reception of messages 

05C3 

B0 

01 


NLMrsts 

MOV 

AL,*False ;Set for no ORB, 

05C5 

BE 

0000 E 



MOV 

SI,OFFSET RcvNLM ; assure TST pointer, 

05C8 

E8 

0000 E 



CALL 

TL_SET„RECV ; request restart 





5 

TRACE 

E2:TL-RCV-NLM 

05CB 

80 

3E 000B E 00 

4 


CMP BYTE PTR EC.Tree,$True 

05D0 

75 

0F 

4 


JNE 

??006C 

05D2 

50 


4 


PUSH 

AX 

05D3 

B0 

00 

4 


MOV 

AL, 0 

05D5 

56 


4 


PUSH 

SI 

05D6 

BE 

03D0 R 

4 


MOV 

SI,OFFSET ??006D 

05D3 

E8 

0000 E 

4 


CALL 

EM TRACE 

05DC 

5E 


4 


POP 

SI 

05DD 

58 


4 


POP 

AX 

05DE 

EB 

01 90 

4 


JMP NEAR PTR ??006C 

05E1 



4 

PC_CODE 

ENDS 


03D0 



4 

PC_DATA 

SEGMENT 

PUBLIC ’DATA’ 

03D0 

00 


4 

??006D 

LRB 

<,OFFSET ??006F - OFFSET ??006E> 

03D1 

0D 


4 




03D2 

45 

32 3A 54 4C 2D 

4 

??006E 

DB 

"E2sTL-RCV-NLM" 

03DF 



4 

PC_DATA 

ENDS 


05E1 



+ 

PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 

05E1 



4 

??006C 

LABEL 

NEAR 

05E1 

C-i 



5 

RET 

;Ret urn to ca11er 

05E2 




TL_RCV_NLM ENDP 
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“ *&************ft ****************•*•** **#&**#*&#***&&'*****&*#'***'*****■**’***■■* 

5 Module names Fetch Internal Command (TL-FETCH-IC) 

5 

;Versions £:.0 
5 

;Last Updates 14 November 1983 
5 

The Fetch Internal Command routine is entered when the 
TL-FETCM-LC routine encounters an internal comrnmarid. It 
fetches the data from the NLMT to the location specified 
by the input ORB. Socket 80 reception is then restarted 
i f a Loca1 Command receive is not pending* 


Function s 


Procedure s Program Log ic Descr i pt ion, Sect ion £’» 7. 7 


5 Cal led Bys TL-FETCH-LC (via a long jump) 
? 

5 Routines ca11eds TL—SET-RECV 


Input 


DSs(SI) 


Location of the ORB 


^ Out puts Comp1eti on code ret urned in ORB 

9 

5 Error proced ures s None 
5 

? y ri11 en bys R«B * Talmadge, Com puter Tech no1ogy Ltd 

9 

;Updates s None 


•m-#***#****##*****#*#*^**#****##*#**##*###-* •*#•*•**•************************* 


05ES 




TL_ 

_FETCH_IC PRGC NEAR 





5 


TRACE 

S:TL—FETCH—IC 

05ES 

80 

3E 000B E 00 

4 * 



CMP BYTE PTR EC.Tree,$Tr 

85E7 

75 

0F 

- 1 “ 



JNE 

??0070 

05E9 

50 


4 ' 



PUSH 

ftX 

05EA 

B0 

00 

4 * 



MOV 

fiL, 0 

05EC 

56 


4 - 



PUSH 

SI 

05ED 

BE 

03DF R 

4 * 



MOV 

SI,OFFSET ??0071 

05F0 

EQ 

0000 E 

4 * 



CALL 

EM .TRACE 

05F3 

5E 


4 - 



POP 

SI 

05F4 

58 


4 * 



POP 

ftX 

05F5 

EE< 

01 90 

4 - 



JMP NEftR PTR ??0070 

05F8 



4 * 

PC 

CODE 

ENDS 


©3DF 



4 * 

PC_ 

DATA 

SEGMENT 

PUBLIC ’DftTft’ 

03DF 

00 


4 * 

?70071 

LRB 

<, OFFSET ??0073 ■ 

03E0 

0D 


4 * 





03E1 

,~?3 

3ft 54 4C E'D 46 

4 * 

??007£ 

DB 

"S:TL—FETCH—IC" 

03EE 



4 * 

PC_ 

DftTft 

ENDS 


05F0 



4 * 

PC* 

CODE 

SEGMENT 

PUBLIC ’CODE’ 

05F8 



4 * 

??0070 

LABEL 

NEftR 

05F8 

56 



9 


PUSH 

SI 

05F9 

57 





PUSH 

DI 


OFFSET ??007£> 


§Save working registers 
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05 FA 

SI 



05FB 

CG 

04 

00 

05FE 

SB 

4C 

0 £ 

0601 

BB 

7C 

04 

0604 

BE 

0£1 

£ R 

0607 

83 

C6 

08 

060A 

FC 



060B 

F3 

/ A4 

060D 

BE 

0000 E 

0610 

80 

30 

01 

0613 

74 

1 R 


0615 

59 



0616 

5F 



0617 

SE 




©G18 

8 © 

3E 000B E 00 

4* 

061D 

75 

0F 

4* 

©GIF 

5© 


4* 

©se© 

B© 

00 

4* 

©sea 

56 


4* 

0623 

BE 

03EE R 

4* 

0626 

E8 

0000 E 

4* 

0629 

SE 


4* 

©62ft 

58 


4* 

062B 

EB 

01 90 

4* 

©GEE 



4* 

03EE 



4- 

©3EE 

©© 


4- 

03EF 

©D 


4- 

©3F© 

45 

3A 54 4C £D 46 

4* 

©3FD 



4* 

062E 



■•{“ 

©GEE 



4- 

©GEE 

C3 




06£F 

B0 

01 

0631 

E8 

0000 E 

0634 

EB 

DF 


PUSH 
5 

MOV 
MOV 
MOV 
MOV 
ODD 

CLD 
REP 

MOV 
CMP 
JE 

ICxits POP 
POP 
POP 

TRACE 

CMP BYTE PTR EC.Tree,♦True 

JNE ??0074 

PUSH AX 

MOV PL, 0 

PUSH SI 

MOV SI,OFFSET ??0075 

COLL EM_TRACE 

POP SI 

POP PX 

JMP NEftR PTR ??0074 


PC_CODE 

ENDS 



PC_DATfl 

SEGMENT 

PUBLIC ’DATA’ 


??0075 

LRB 

<, OFFSET 770077 

- OFFSET ??©©7G> 

??0076 

DB 

"E s TL-FETCH-1C" 


PC_DATA 

ENDS 



PC_CQDE 

SEGMENT 

PUBLIC ’CODE’ 


?70074 

LABEL 

NEAR 


5 

RET 


;Ret urn t o ca11er 

5 

n 

Reenter 

here to restart 

socket 8© reception 

? 

ICrst : 

MOV 

AL,$False 

5 Set for no ORB, 


CALL 

TL_SET_RECV 

5 request restart, 


JMP 

ICx it 

5 and exit 


CX 


CSI3.CC, «OPcne 
CX, CSI3.Sse 
DI, CSI3 . RB_Data 
SI, OFFSET MT 
SI,TYPE CRQE 


;Set comp1etion OK 
;Fetch count from ORB 

;Location to place data 
;Source starts at NLMT plus 
; offset of initial CRQE 


MOVSB 


5 Set direction and 
; move the data 


SI,OFFSET RcvNLM 
CS13.PN,$False 
ICrst 


;Fetch TST entry receive NLM 
;Go restart reception 
; if no local command 


CX 

DI 

SI 


;Restore registers 


E:TL-FETCH-IC 


0636 


9 

TL_.FETCH._IC ENDP 
5 

5 ************************************************************* •*•*•**•*•*■*•* *••*•**•*•*•* 

; End of the Assembly housekeeping goes here I 

; ************************************************* •*■**■#•**■*•* •*•*■*■*•*■**•*■**#••*•*•** 


0636 


B 

PC CODE ENDS 




4 

1-45 

t 

5 Command request queue g 

UNL message image 
5 Name Lookup Message Table 

sInitial stack location f 

5 Interrupt Service Driver 
5 Interrupt driver 1 off timer 1 tick 

;CRQ dequeue g 

;CRQ enqueue 
5 Bet disk error code 

5 Get NAD of requestor g 

5 Receive ICS 1 

jlnt svc routine for send NAD 

5 Recei ve NL message g 

5 Internal command fetch * 

5 Primary interrupt test 1 oop 

5 Wait for Operation complete - 


I 

l 

l 

t 

f 

i 

I 

4 

4 

4 

4 

t 

i 


i 




Syrntaols—l 


€ 

< 

f 

i 

€ 

i 

t 

c 

< 

f 

t 

t 

t 

4 

I 

€ 

< 

< 

€ 

€ 

* 

f 
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Symbol 


EC DRV . 

a 

a 


«t 

M 


a 


81 

If 

tt 

a 

0003 

EC FL..G . 


„ 


tt 



„ 


VI 


tt 

a 

000A 

TRCE - « 


„ 


n 


It 

a 

a 

n 


tl 

a 

000B 

COLD . - 

a 

a 



a 

a 

a 


n 


a 

a 

000C 

EC TRM . 

a 

„ 


*t 


a 

» 

a 




« 

000D 

MAX. . . 

M 

a 


•t 


a 

a 

u 




a 

000E 

NEXT .. . 

„ 

„ 


u 

„ 


a 

n 

a 



a 

0010 

DIR. . . 

„ 

a 

„ 



a 

« 

tt 



a 

a 

mi a 

MAM. . . 

„ 

a 

It 


„ 

« 

a 

a 



tt 


001A 

SERV u . 


„ 

tl 



a 

a 




» 

a 

0022 

EC_ATRU. 

a 

a 




.. 

a 




it 

tt 

002C 

EC ATRS. 


a 





a 



tt 


a 

002D 

EC_ATRL. 


a 


tt 

a 

a 




tt 



002E 

EC TBI . 

a 



it 


IS 

„ 

„ 

It 

tl 



002F 

TLTMCK . 

a 

a 


tt 


m 

u 

M 

VI 

tl 


a 

0030 

TLTMRS . 

M 

„ 


at 


a 

„ 

to 

tt 



a 

0031 

KEEPOUT. 

a 

a 


tt 


a 

a 

tt 




.. 

0032 

INTDFR . 

a 

a 




a 

H 



tt 


tt 

0033 

DOSDKO . 


„ 

tt 


„ 

a 


a 


tt 


a 

0034 

DOSDKS . 


»« 

w 



a 


a 


ti 

a 

a 

0036 

DDRH . . 

tt 

<t 

a 


„ 

a 







0038 

DDRHS* . 

a 


It 



a 

ft 

tt 




a 

003A 

TCKO n * 


a 

m 

a 


a 

H 

St 

It 

tt 

a 

It 

003C 

TCKS . » 


„ 

n 



a 

a 

tt 

It 

tt 

tt 

tt 

003E 

LRB. 

a 


at 

«» 

a 

a 



It 

•I 

R 


0002 

rr)F 

w L/ L». nun 

a 


n 

w 

„ 

a 


„ 

CS 

M 

tt 

tt 

0000 

LR_LEN . 

„ 


„ 

tt 

H 

tt 


It 

tt 

tl 


tt 

0001 

NLM. . . . 

„ 



a 

a 

tt 

It 

a 

tt 


tt 


0012 

PID. . . 

a 



„ 

a 

It 

K 

a 



It 

tt 

0000 

MSI. . » 

w 

« 


a 

** 

n 

It 

a 


tt 

M 

tt 

0002 

SRC. . . 

« 

M 

tt 

a 

N 

u 

tl 


It 



tt 

0004 

DEV. . . 


„ 

« 

a 

a 

n 

•1 

n 

tl 



|| 

0006 

ML__NAME. 

a 

a 

n 

a 

a 




IS 


tt 

tt 

0008 

NLMT . . . 

a 

« 


a 

<• 

M 



tt 




0016 

MT_USE . 

a 

a 


u 

a 

u 

« 

a 




«| 

0000 

MT NAD . 

n 

a 


„ 


U 





«t 

tt 

0001 

OPC. . . 

a 

a 


a 

a 

St 


a 

It 

tt 


IS 

0004 

MT_MOD . 

a 

»« 


a 

« 

w 


a 

n 

It 

t. 


0005 

MT_NAME. 

a 

a 


a 

„ 

II 


a 

*» 

tt 

tt 

tt 

0006 

MT_SRC . 

„ 

a 


a 

M 

* 

ft 

a 


tt 

tt 

tt 

0010 

MT_DEV . 

„ 

a 


„ 

a 

„ 

It 

a 

tt 

tt 


It 

0011 

RSVD . . 

a 

it 

» 

a 

a 

tl 

tl 

a 

tt 

tt 


tt 

0012 

ORB. . . . 

M 

a 

ts 

a 

i* 

« 

M 


it 

tt 



0008 

L C nan 

a 

a 

H 

M 

„ 


m 


» 



n 

0000 

np 

US It M » 

a 

„ 

U 

M 



u 

„ 

it 



it 

0001 

SZE. . . 

M 

a 

n 

M 

a 

tt 

ft 

a 


tt 


» 

0002 

RBJDATA. 

a 

a 

n 

» 

a 

tt 

n 

a 

it 

tt 


r 

0004 

RB_DATAS 

H 

a 

tt 

a 

H 

M 

n 

» 

* 

tl 


t, 

0006 

RRKD~. . . 

l« 


tt 

a 

a 

tt 

w 

a 

St 

It 

tt 


0004 

RCODE. » 


m 

w 


a 


ts 

a 

* 

tt 

tt 

« 

0000 

SHOST. . 

a 

a 

» 

a 

ii 

tt 

tt 

a 

tt 

tt 

tt 

tt 

0001 

RCVLEN . 

a 

a 


„ 

„ 

«? 

* 

« 


tt 

tt 

it 

0002 

RRRCV. . . 

a 

a 

m 

SI 

M 

tt 


it 


tt 

tt 


0004 

LOFCM. . 

a 


tt 

M 


St 

St 

« 

it 

tt 

n 

s# 

0000 

ELOFRP . 


a 

a 

U 

a 

18 

St 

a 

ts 

tt 

tt 

ts 

0002 


0002 

0005 

0003 

0005 

0003 

0002 








€ 
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« 


i 

t 

< 

< 

i 

< 

f 

« 

« 

l 

€ 

I 

f 

f 

I 

t 

< 

« 

« 


RRSND. . . 


II at M 

„ 

a 

n 

a 

a 

tt 

tt 


0003 

000 £ 

ALOFRP . 

„ 

t. M tl 

* 


M 

„ 

« 

tt 

tt 

tt 

0000 


DSTPT„ s> 

u 

19 II M 

„ 

n 

a 

a 

M 


tt 

tt 

000 £ 


TSTE a - « 

it 

MM. 


a 

a 

a 

tt 




0014 

000C 

PN a „ « 

H 

Hun 

M 

a 

a 

a 

a 


99 

II 

0000 


TT ST. . 

„ 

• m it 

„ 

M 

tt 

„ 



It 


0001 


SK . . . 

M 

n at n 

M 

«s 

a 

„ 

a 


It 


000 £ 


TT_OP. . 


„ U „ 

tt 

a 

. 

a 

a 


a 

a 

0003 


CCB. . . 

n 

„ „ „ 

n 



„ 




tt 

0004 


RR . 

„ 

a « » 

a 

» 

a 

a 

a 

II 


«9 

0006 


DTL. . . 

„ 

„ „ w 

„ 

a 

It 

a 

a 

II 


tt 

0008 


DSZ. . . 

M 

tl M M 

tt 

a 

aa 

a 

* 

91 


II 

000 A 


ISR. „ . 

n 

u u o 

tt 

a 

a 

a 

H 

tt 



0000 


ISRS . . 


VMM 

m 


a 

a 

a 


a 


000E 


TT_ORB . 

„ 


H 

a 

a 

a 

a 




0010 


TT_QRBS. 

M 

„ „ m 


a 

« 

„ 

a 




0012 


TSTH n * „ 

H 

„ a u 

» 

M 

« 

a 


tt 

19 


0004 

0004 

I NT. . . 

„ 

» *t tt 

a 

„ 

a 

a 

a 

tt 

tt 


0000 


TT_CI . . 

„ 

u » » 

it 


a 

a 

a 

tt 

a 


0001 


NE . - . 

* 

n tt u 

„ 

a 

a 

a 

« 

« 

a 

a 

0002 


TTJMAD . 

„ 

n tt tt 

a 

U 

» 

a 

a 

a 

a 

a 

0003 


TSTLE. » * 

as 

tt tt tt 

M 

as 

tt 

a 

a 

„ 

a 


0014 

000B 

LE_CC. . 

as 

a a a 

w 

tt 

a 

a 

a 

a 

a 

a 

0000 


LE OP. . 

» 

N . tt 

n 

n 

„ 

a 

a 

a 

a 

a 

0001 


L.E_LEN . 


„ „ „ 

« 

» 

tt 

a 

a 

a 

a 

a 

000 S 


TRM. . . 


„ * a 

it 

a 

a 

a 

a 

a 

a 

a 

0004 


I RMS . . 


„ „ « 

a 


« 

« 

It 

a 

a 

a 

0006 


RCV. . . 

„ 


M 

at 

a 

a 

» 

a 

a 

a 

0008 


RCVS . . 


MUM 

„ 

m 

a 

a 

* 

a 

a 

a 

000A 


LE ISR . 

w 

It K M 


ta 

a 

a 

tt 

a 

a 

a 

000C 


LE_ISRS. 

II 


n 

M 

a 

a 

tt 

a 

a 

a 

000E 


LE_BP. . 

- 


- 

« 

■ 

it 

■ 


- 


0010 


Segments and 

groups s 












N 

a 

m 

e 






Size 

align 

PCS. . . . 





. 


a 

. 



GROUP 


PC_CODE. 

„ 

„ U * 

a 

n 

a 

a 

a 

91 

a 

a 

0636 

PARA 

PC_DATA. 

- 

" - - 

- 

• 

- 

tt 

a 

99 

- 

- 

03FD 

PARA 

Symbols s 















N 

a 

ni 

e 






Type 

Va 1 ue 

Cl*. . . . 


Mutt 

. 

. 

a 

a 

tt 


n 


Number 

0000 

CI_MAIN. . 

• 

n n is 

m 

tt 

a 

a 

a 

V 

a 


L NEAR 

0000 

DEBUG* . . 

„ 

HUM 

nr 

t> 

a 

a 

a 

91 

a 


Number 

0001 

DM*. . . . 

a 

it at tt 

a 

„ 

a 

a 

a 

99 

a 


Number 

0000 

DM ERR LOG 

« 

WWW 

tt 

a 

a 

a 

a 

tt 

a 


L NEAR 

0000 

DQFRST . . 

a 

U tt St 

SI 

tt 

a 

a 

a 

It 

n 


L. NEAR 

0£10 

DQOK . . . 

n 

man 

a 

n 

a 

a 


It 

a 


L NEAR 

01E9 

DQ0K1 . . . 

m 

st a tt 


tt 

a 

a 

a 

tt 

a 


L NEAR 

01FC 

DQOKS. . . 

„ 

» It w 

tt 

tt 

M 

a 

a 

8* 

a 


L NEAR 

0£08 

DQS0 * » . 


* * „ 

*s 

n 

a 

» 

a 

tt 



L NEAR 

019E 


f 


PAGE 


€ 


tf 

( 

I 

< 

i 

l 

f 


i 

( 

< 

€ 


combine class 

PUBLIC ’CODE’ 
PUBLIC ’DATA’ 


i 

i 

i 


Attr 


I 


External 


I 


Externa1 

PC_CODE 
PC_CODE 
PC__CODE 
PC_CODE 
PC CODE 


i 

« 

€ 


f 










The IBM Personal Computer MACRO 


DQS00. . 

DOST - . 

DQST1. . 
DR*„ . . 

DRCTST . 
DRINC. . 
DRTSDS . 
DRTXIT . 
DRVCCI . 
DRVGO. . 
DRVLPE - 
DRVLPN - 
DRVLB. - 
DRVTCI . 
DRVXIT . 
DTA_BGN. 
EC . . . 

EI$. . - 

EMSTAK . 
EMSTAKE. 
EM_TRACE 
EYE* . 
HINQ . . 

HWDRVR . 
ICRST. . 
ICXIT. . 
IDMSG. . 
INTBRK . 
INTXIT . 
IS*. . . 
L..C*» . . 

LC_INT 
LC__RCV 
MT . . 

NA*„ . 
MAD60. 
MADXT. 
NLMCAL 
MLMERR 
NLMMG1 
NLMMG2 
NLMMSG 
MLMRST 
NLMRTN 
NLMSTP 
NOCOM* 
NQMOV. 
NOOK . 
MOST . 
NQST1. 
NQXIT. 
PI*. . 
RAX* . 

RBP* . 
RBX* . 


SRVR. 

CMND. 


Assembler 01-15-84 


L 

NEAR 

01BB 

L 

NEAR 

01 BE 

L 

NEAR 

01 D0 

Number 

0000 

L 

NEAR 

0072 

L 

NEAR 

0020 

L 

NEAR 

0035 

L 

NEAR 

002C 

L 

NEAR 

0102 

L 

NEAR 

00C2 

L 

NEAR 

00C6 

L 

NEAR 

00DD 

L 

NEAR 

00CA 

L 

NEAR 

00F4 

L 

NEAR 

0113 

V 

BYTE 

0000 

V 

BYTE 

0000 

Number 

0000 

L 

WORD 

020C 

E 

BYTE 

020E 

L. 

NEAR 

0000 

Number 

0001 

L 

NEAR 

045E 

L 

NEAR 

0015 

L 

NEAR 

062F 

L. 

NEAR 

0615 

L 

0012 

022C 

L 

NEAR 

0095 

L 

NEAR 

008B 

Number 

0000 

Number 

0000 

L 

NEAR 

0000 

L 

NEAR 

0000 

L 

0016 

0212 

Number 

0000 

L 

NEAR 

0324 

L 

NEAR 

0331 

L 

NEAR 

05A3 

L 

NEAR 

0514 

L 

NEAR 

0525 

L 

NEAR 

0535 

L 

NEAR 

04F5 

L 

NEAR 

05C3 

L 

NEAR 

05A5 

L 

NEAR 

05 ID 

Number 

0000 

L. 

NEAR 

02 A A 

L 

NEAR 

026E 

L 

NEAR 

028B 

L 

NEAR 

029B 

L 

NEAR 

02BC 

Number 

0000 

Number 

0001 

Number 

0000 

Number 

0001 


PAGE Symbols— 


PC_CODE 

PC_CODE 

PC_CODE 

PC_CODE 

PC_CODE 

PC_CODE 

PC_CODE 

PC_CODE 

PC_CODE 

PC_CODE 

PC_CODE 

PC_CODE 

PC_CODE 

PC_CODE 

External 

External 

PC_DATA 

PC_DATA Global 

External 

PC_CODE 

PC_CODE 

PC„CODE 

PC_CODE 

PC_DATA Global 

PC_CODE 

PC CODE 


External 
External 
PC_DATA Global 

PC„CODE 
PC__CODE 
PC CODE 
PC„CODE 
PC__CQDE 
PC CODE 
PC CODE 
PC__CODE 
PC__CODE 
PC_CODE 

PC_CODE 
PC_CODE 
PC_CODE 
PCICODE 
PC CODE 













The IBM Per 

son a 1 

Cc 

mputer 

MACRO 

Assembler 01-1! 

5-84 

PAGE 

Symbols—5 

RCVERR 







L 

NEAR 

037E 

PC_CODE 


RCVICS 

MW U 


„ 


tt 

» SI 

V 

BYTE 

0000 


Externa1 

RCVMSG 

mum 

tt n n 

w 


N 

tt tt 

L 

NEAR 

038E 

PC..CODE 


RCVMSH 

nun 

it w n 

u 


tt 

tt tt 

L 

NEAR 

03AB 

PC_CODE 


RCVNLM 

M U II 

u at m 

w 


tt 

n n 

V 

BYTE 

0000 


External 

RCVRST 

» M 9 

N » M 

«• 


tt 

H R 

L 

NEAR 

03CA 

PC_CODE 


RCVSTP 

U » n 

„ „ H 

n 

R « R 

tt 

IC tl 

L 

NEAR 

0386 

PC_CODE 


RCVXIT 


H R X 



„ 

tt tt 

L 

NEAR 

03CC 

PC_CODE 


RCX* - 

m h m 

n W W 




II u 

Number 

0001 



RDI* . 


tt It tt 

VI 

M R R 


n « 

Number 

0001 



RDS* . 


tt tt tt 

tt 


tt 

it u 

Number 

0000 



RDX* . 


tt W tt 

w 

tt tt II 

tt 

it it 

Number 

0001 



RES* - 

WWW 

n r r 

tt 

U tt tt 

•I 

w it 

Number 

0000 



RQ . . 

WWW 

tt tt tt 

K 


tt 

tt n 

L 

□WORD 

0004 

PC_DATA 

G1oba1 

RQBGN« 


W If tt 

H 

tt R « 

tt 

n it 

L 

DWORD 

000C 

PC__DATA 


RQEND. 


M M tt 

„ 


It 

ft tt 

E 

BYTE 

020C 

PC_DATA 


RSI* - 

w n n 

tt tt tt 



tt 

m n 

Number 

0001 



SM*. . 

N ■ w 


R 

R tt « 

» 


Number 

0000 



SSWCH* 

tt N H 


„ 


tt 

R R 

Number 

0000 



SWDRVR 

HUM 

M «• R 

„ 




L 

NEAR 

009F 

PC_CODE 


TBINTA*. . . 

If tt tt 

R 

tt R tt 


tt tt 

Number 

0001 



TENV$. 

WWW 

nun 

m 

W R tt 


tt tt 

Number 

0001 



TL*. - 

WWW 

tt tt tt 


R tt R 



Number 

0001 



TLTGO. 

» » N 

tt tt tt 

„ 


R 


L 

NEAR 

01 SB 

PC CODE 


TLTXIT 

« » m 

tt tt tt 





L 

NEAR 

0126 

PC_CODE 


TL BYT 

IN. . 

tt » tt 

R 

tt tt tt 



L 

NEAR 

0000 


External 

TL BYT 

OUT . 

tt tt tt 

n 

WWW 

tt 

H R 

L 

NEAR 

0000 


External 

TL DQ CRQ. . 

tt tt tt 

M 

M tt tt 

tt 

tt tt 

N 

PROC 

0188 

PC_CODE 

Global Length -00BE 

TL DTP 

IN. . 

tt tt if 

„ 

« tt tt 

II 

at w 

L 

NEAR 

0000 


External 

TL FETCH IC. 

tt tt tt 

r 



tt tt 

N 

PROC 

05E2 

PC_CODE 

Global Length -0054 

TL. GET 

NAD . 

tt n w 

M 

II tt tt 


«t N 

N 

PROC 

02EE 

PC_CODE 

Global Length -005B 

TL I NT 

DRVR. 

o n tt 

tt 

tt tt tt 


tt w 

N 

PROC 

0000 

PC_CODE 

Global Length -0130 

TL I NT 

DTME. 


» 

1 * tt n 


is it 

L 

NEAR 

0114 

PC_CODE 

Global 

TL I NT 

NAD . 



st it tv 

tt 


L 

NEAR 

042C 

PC..CODE 

Global 

TL I NT 

TEST. 

tt tt » 

„ 

tt «k n 

tt 


L 

NEAR 

00C2 

PC_CODE 

Global 

TL I NT 

WAIT. 

m w tt 


n h tt 

M 

tt M 

N 

PROC 

0138 

PC .CODE 

Global Length -0050 

TL NLM 

SRVCu 

w tt tt 

„ 

WWW 

tt 

tt it 

N 

PROC 

0443 

PC__CODE 

Length ^=0094 

TL NQ CRQ. . 

« w «t 


a n m 

w 

tt » 

N 

PROC 

023A 

PC_CODE 

Global Length -009A 

TL RCV 

BYE . 

n m n 

n 


tt 

■i n 

L 

NEAR 

0465 

PC_CODE 


TL RCV 

HI. . 

IV tt It 


«i vt «• 

tt 

it w 

L 

NEAR 

0443 

PC..CODE 


TL RCV 

ICS . 

n n « 


«• it it 

tt 

it tt 

N 

PROC 

0349 

PC_CODE 

Global Length -009F 

TL RCV 

I DEN. 

m n n 


tt w tt 


M Cl 

L 

NEAR 

0443 

PC CODE 


TL RCV 

NLM . 

as w ti 

H 

tt tt tt 


II 

N 

PROC 

04D7 

PC_CODE 

Global Length -010B 

TL RCV 

WHERE 

tt it w 

„ 

tt tt W 


It tt 

L 

NEAR 

04B2 

PC CODE 


TL RCV 

WHO . 

w » it 


tt tt tt 

tt 

» tt 

L 

NEAR 

0482 

PC_CODE 


TL SEND NAD. 

w m tv 


tt M tt 

tt 

tt 

N 

PROC 

03E8 

PC„CODE 

Length -005B 

TL. SEND NLM. 

» n n 


N tt tt 

tt 


L 

NEAR 

0000 


External 

TL SET 

ERR . 

tt M N 

„ 


It 

tt « 

N 

PROC 

02D4 

PC_CODE 

Global Length -001A 

TL SET 

RECV. 

vt w »« 

tt 

tt tt tt 

w 

II M 

L 

NEAR 

0000 


External 

TL SET 

RTRYr 


R 

W tt tt 

tt 

m w 

L 

NEAR 

0000 


External 

TL SET 

SEND. 

«t w it 

tt 

II It tt 

II 

» ti 

L 

NEAR 

0000 


External 

TL WRD 

IN. . 

tt is tt 


tt tt tt 

tt 

tt w 

L 

NEAR 

0000 


External 

TMPICS 

« tt If 

it m » 

tt 

tt II tt 

tt 

at tt 

L 

DWORD 

023E 

PC__DATA 


TRACE* 

bum 

tt m u 

m 

tt tt tt 

II 

w tt 

Number 

0001 



TRMNAD 

m „ n 

w w «t 

M 

tt tt tt 

tt 

iw ss 

V 

BYTE 

0000 


External 


















I 


f 

I 

4 

« 

f 

I 

f 

f 

« 

I 

f 

t 

I 

€ 

i 

€ 

€ 

« 

« 

« 


The IBM Personal Computer MACRO Assembler 01-15-84 


TT „ is „ 


» 

M 

a 

a 

a 

a 

a 

a 

a 

a 

„ 

V BYTE 

0000 

TTBGN. . 



n 



ft 

ft 



ft 

a 


V BYTE 

0000 

TTEND„ « 

u 

m 

it 

M 

„ 

ft 

ft 


ft 

ft 

a 


V BYTE 

0000 

WAITCC . 

m 

„ 

m 

II 

a 

ft 

ft 

ft 

ft 

ft 



L NEAR 

0156 

WAITNI „ 

ft 


n 

m 


ft 

ft 

ft 

ft 




L NEAR 

017£ 

WPI TXT 1, 

u 

M 

ft 

m 

„ 

ft 

ft 

ft 


ft 


ft 

L NEAR 

015B 

WHOSND . 

n 

M 

n 

at 

ft 

It 

ft 



ft 

ft 

ft 

L NEAR 

04A7 


ft 



at 

ft 


ft 

ft 

ft 

ft 

» 

ft 

Number 

0008 

$$NAM. . 

it 


•i 


a 


ft 

ft 

ft 

ft 

ft 

ft 

Number 

0008 

**NEXT . 

ft 

• 

M 

» 

a 


ft 

M 

it 

M 

ft 

ft 

Number 

0004 

$$SERV „ 

at 


N 




ft 

ft 

It 


II 

ft 

Number 

000A 

$ALLNAD. 

m 

u 



a 


ft 

ft 


M 


ft 

Number 

00FF 

$ATRNRM„ 

m 

n 



a 

0 

ft 


a 

ft 

ft 

ft 

Number 

0000 

$CALLCA. 

ft 

a 



a 

ft 

ft 

ft 


ft 

Cl 

ft 

Number 

00£3 

&CPL.L.CB* 

m 

„ 

a 

,, 

a 

ft 

ft 

ft 

ft 


It 


Number 

001B 

SCALEDI. 

„ 

N 



„ 

ft 

ft 

ft 

ft 




Number 

0066 

$CALLDS. 

M 

H 



a 


„ 


ft 

ft 



Number 

00£1 

$CALLEM. 

n 

a 



a 


a 

ft 

a 

ft 

a 

ft 

Number 

000A 

*CALLKR. 

„ 

a 



a 


a 

ft 

ft 

n 


ft 

Number 

0034 

ifCALLTK. 

u 

M 

a 

a 

a 


a 

a 

ft 

ft 

ft 

ft 

Number 

00 1 C 

$CALL.TM. 

a 

a 



a 

a 

a 

ft 

ft 

ft 

ft 

0 

Number 

0067 

$CPLLTP„ 


a 



M 

a 

a 

ft 

ft 

a 

ft 

ft 

Number 

0001 

ifcCLINT * 

<• 

» 

a 


a 

» 

a 

IS 

ft 


It 

ft 

Number 

0£4D 

SCONS. . 

a 

a 



a 

a 

a 

ft 

ft 


ft 

ft 

Number 

0080 

^CONSPT. 

a 

n 



a 

a 

a 

a 



II 

ft 

Number 

0040 

IINT M 

M 

„ 



u 

a 

M 

ft 




ft 

Number 

0£4C 

SECHQ. . 

* 

a 


a 


a 

a 

ft 

ft 



ft 

Number 

000E! 

SENDRCV. 

U 

„ 

It 

ft 

* 

a 

a 

II 

ft 



It 

Number 

0010 

SENINT . 

t* 

a 


ft 

ft 

a 

M 

0 

ft 


ft 


Number 

0£4E 

SFALSE . 

u 

a 


ft 

ft 


a 

ft 

ft 

ft 

ft 


Number 

0001 

SINITT - 

a 

a 


ft 

|, 

a 

a 


ft 

ft 

ft 

ft 

Number 

00£0 

SINITTA. 

n 

n 


ft 

n 

a 

„ 

IS 

ft 

ft 

ft 

ft 

Number 

0100 

SINTS. . 

„ 

H 

It 

ft 

„ 

a 


H 



ft 

ft 

Number 

00CD 

SLCABT . 

« 

u 

ft 

II 

* 

w 





ft 

ft 

Number 

00FF 

SLCAQK . 

H 

» 

at 

ft 

„ 

„ 

a 

ft 



ft 

ft 

Number 

0000 

SLCMAXL. 

N 

a 

«a 

ft 

« 

a 

w 

ft 

It 


ft 

ft 

PI ias 

SMAXTBD 

SLCNOP . 

N 

a 

« 

ft 

«a 

a 

n 

ft 

It 


ft 

ft 

PI ias 

SFALSE 

SLCOPN . 



m 


it 

a 

a 

ft 

ft 

« 

ft 

ft 

PI ias 

STRUE 

SMAXDLY. 

« 

« 

u 


it 

a 

«t 

ft 

ft 

ft 

ft 

M 

Number 

7FFF 

SMAXMSG. 


a 

* 



a 

a 

ft 

ft 

ft 

It 


Number 

0066 

SMAXRTY. 

* 

a 

» 

ao 

ft 

a 

a 



ft 

ft 

ft 

Number 

0010 

SMAXTBD. 

„ 


m 

m 

ft 

M 

M 



ft 

ft 

ft 

Number 

0£11 

SMAXWTE. 

M 

a 

n 

it 

a. 

a 

a 


ft 

ft 

ft 

ft 

Number 

000A 

SMND00 . 

„ 

M 

t» 

n 

ft 

M 

a 

ft 

ft 

ft 

ft 

ft 

Number 

0001 

SMND01 . 


M 

ti 


»t 

a 

a 

ft 

M 

II 

ft 

ft 

Number 

0009 

SMND0£ . 

u 

a 

ft 


•« 

a 

a 

ft 

ft 

ft 

ft 

u 

Number 

000A 

SMND03 . 

u 

a 

M 

u 


u 

a 

ft 

It 

II 

M 


Number 

000B 

SMND04 . 

„ 

it 

ft 

ft 


M 

» 

ft 

ft 


ft 


Number 

000C 

SMND05 . 

a 

« 

tt 

at 


a 

a 

ft 

ft 

M 

ft 

ft 

Number 

0011 

SMND06 - 

n 

w 

m 

ft 

ft 

a 


ft 

0 

ft 

ft 

ft 

Number 

0013 

SMNT00 . 

*i 

M 

n 

as 

it 

a 

* 

II 

0 

ft 

ft 

ft 

Number 

000£ 

SMNT01 . 

M 

a 

* 

ft 

« 

M 

a 

ft 

ft 

ft 

ft 

ft 

Number 

0003 

SMNT0I0. 

u 

a 

» 

ft 

ft 

a 

a 

ft 

a 

ft 

ft 

ft 

Number 

0010 

SMNT011. 


„ 

» 

m 

»» 


m 

ft 

a 

ft 

« 

ft 

Number 

001£ 

SMNT01£. 



* 


at 

M 

a 

0 

a 

ft 

ft 

ft 

Number 

0014 


4 


< 

PAGE Symbols-6 

I 

External f 

External 

External 

PC_CODE M 

PC_CODE 

PC_CODE 

PC_CODE | 

4 

I 

I 

4 

( 

« 

I 

f 

4 

4 

€ 

I 

f 

« 


« 


i 


















I 


The IBM Personal Computer MACRO Assembler 01 — 15—84 


PAGE 


i 


f 

f 

f 

f 

f 

f 

« 

« 

* 

t 

t 

i 

i 

i 

t 

€ 

« 

« 

C 



Number 0004 
Number 0005 
Number 0006 
Number 0007 
Number 0008 
Number 0000 
Number 000E 
Number 000F 
Number 0003 
Number 0000 
Number 0040 
Number 000ft 
Number 0001 
Number 00FF 
Number 00FF 
Number 0001 
Number 0000 
Number 0010 
Number 0002 
Number 0003 
Number 0001 
Number 0000 
Number 0001 
Number 00FF 
Number 0007 
Number 0004 
Number 0005 
Number 0008 
Number 0006 
Number 0003 
Number 0005 
Number 00Fft 
Number 0080 
Number 0080 
Number 0081 
Number 000B 
Number 0001 
Number 01FE 
Number 0849 
Number 084B 
Number 0848 
Number 0004 
Number 0080 
Number 0001 
Number 00FF 
Number 0000 
Number 003F 
Number 01F8 
Number 0080 
Number 0010 
Number 0080 
Number 0040 
Number 0040 
Number 00F0 
Number 0060 


« 


Symbols—7 


1 

i 

i 

f 

« 

« 

i 

c 

f 

€ 

f 

€ 

I 

I 

4 

f 

4 

€ 

< 

C 

f 

































I 



Symbols~8 


€ 


I 

€ 

* 

€ 

c 

f 

* 

i 

I 

I 

f 

€ 

f 

I 

< 

€ 

1 

< 

C 


f 


































PAGE 


Symbols~9 


€ 

« 

€ 

€ 

f 

< 

€ 

f 

f 

C 

f 

f 

« 

t 

f 

I 

f 

€ 

< 

« 

i 


The IBM Personal Computer MACRO Assembler 01—15—84 


77000C 


» 


„ 

n 
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„ 


« 

» 



t> 


tl 

L 

WORD 

0£A6 

PC_DftTft 

77001ft 


it 

H 

ii 

* 


II 

It 



tt 


n 

L 

BYTE 

0£A8 

PC_DftTA 

??001B 

M 

it 

tt 

« 



II 

tt 

it 


tt 


M 

E 

BYTE 

0£B3 

PC_DftTA 

??001C 

It 



n 




II 

n 


tt 



L 

NEftR 

0£50 

PC_CODE 

??001D 

n 

w 


tt 

M 

II 


tt 

K 



n 

tt 

L 

WORD 

0£B3 

PC _DftT ft 

??001E 

in 



ii 

n 

•I 


II 



« 

it 

tt 

L 

BYTE 

0£B5 

PC_DATft 

??001F 

«* 

tt 


ii 

m 

tt 


tt 


tt 

tt 

« 

tt 

E 

BYTE 

0£C0 

PC DATA 

??00£0 

•« 

M 


it 

u 

II 

If 

tt 


w 

„ 

a 

tt 

L 

NEftR 

0£’6D 

PC_CODE 

??00£1 

it 

tt 



u 

tt 

tt 

a 


» 


II 

II 

L 

WORD 

0£C0 

PC__DftTft 

??00££ 

« 

tt 

II 


u 

tt 

tt 

it 

a 

„ 


M 

» 

L 

BYTE 

0£C£ 

PC_DATA 

??00£3 


u 



it 

II 

M 

it 

tt 


tt 

tt 

a 

E 

BYTE 

0£C3 

PC_DATft 

??00£4 

u 

„ 

Cl 

u 

m 

tt 



tt 


ft 

„ 


L 

NEftR 

0SD3 

PC_CODE 

??00£5 

* 

m 

tt 

m 

M 

tt 

tt 

n 

tt 

II 

tl 

tt 

It 

L 

WORD 

0£C3 

PC__DATA 

??00£6 

u 

u 

It 

n 

„ 

tt 

tt 

i« 

tt 

tt 

*# 

tt 

tt 

L 

BYTE 

0£C5 

PC_DftTft 

??00£7 

n 

n 

ft 

u 

n 

M 

tt 

it 

II 

tt 

tt 

tt 

» 

E 

BYTE 

0£D0 

PC_DftTft 

??00£8 

u 

tt 

a 

a 

it 

tt 

tt 

tt 

II 

II 

tt 



L 

NEftR 

0£Eft 

PCICODE 

??00£9 

tt 

m 

•t 


ti 

II 

tt 

tt 

tt 

II 

tt 

It 


L 

WORD 

0£D0 

PC__DftTft 

??00£fl 

w 

u 

«i 

m 

u 

II 

tt 

ti 

II 

tt 

tt 

tt 

II 

L. 

BYTE 

0£D£ 

PC_DftTft 

??00£B 

n 

u 

i» 

tc 

it 

tt 

tt 

m 

II 

«■ 

II 

It 

tt 

E 

BYTE 

0£E0 

PC„DftTfi 

??00£C 

u 

u 

M 

IV 

it 

u 

II 

ti 

II 

tt 

tt 


tt 

L 

NEftR 

0304 

PC_CODE 

??00£D 

18 

tt 

tt 


n 

t* 

tt 

it 

tt 

tt 

» 

« 

* 

L 

WORD 

0£E0 

PC_DATft 

??00£E 

m 

M 

tt 

« 

it 

« 

tt 

u 


tt 

tt 

tt 


L 

BYTE 

0£E£ 

PC_DATA 

??00£F 

m 

tt 

W 

tt 

tt 

N 

tt 

« 

If 

tt 

tt 

tt 


E 

BYTE 

0£EE 

PC DftTft 

?70030 


* 

tt 

tt 



If 

ii 

II 

tt 

M 


II 

L 

NEftR 

03£3 

PCICODE 

770031 

tt 

m 

tt 

a 

ii 

tt 

H 


It 

tt 

tt 


If 

L 

WORD 

0£EE 

PC_DftTft 

??003£ 

n 

w 

It 

» 

it 


II 

if 

tt 

tt 

tt 


II 

L 

BYTE 

0£F0 

PC_DftTA 

770033 

n 


tt 

tt 

«i 

tt 

tt 

ci 

u 

tt 

W 

tt 

tt 

E 

BYTE 

0£FC 

PC„DftTft 

770034 

tt 

tt 




II 

tt 

at 

tt 


tt 

tt 

tt 

L 

NEftR 

0348 

PC_CODE 

770035 

It 

II 

tt 

tt 

ti 

t» 

tt 


II 

n 

tt 

tt 


L 

WORD 

0£FC 

PC DftTft 

770036 

n 

tt 

tt 

ti 

t« 

tt 


tt 

II 

tt 




L 

BYTE 

0£FE 

PC_DATft 

770037 



tt 

it 

n 

tt 

II 

tt 

It 

tt 

tt 


II 

E 

BYTE 

030ft 

PC„DATft 

770038 

u 


tt 

it 

m 

N 

It 

ti 

tt 

tt 

» 

II 

tt 

L 

NEAR 

035F 

PC~CODE 

770039 

* 


II 

it 

it 

tt 

tt 

« 

N 

tt 

II 

tt 

tt 

L 

WORD 

030ft 

PC__DftTft 

77003ft 



II 

ii 

it 

ft 

II 


tt 

ft 

tt 

It 

tt 

L 

BYTE 

0300 

PC_DATft 

77003B 

* 


tt 


ti 

H 

tt 



tt 

tt 

II 

tt 

E 

BYTE 

0318 

PC_DflTft 

77003C 

«t 

t* 

tt 

« 

» 

tt 

U 




tt 

fit 

tt 

L 

NEftR 

037D 

PC_CODE 

77003D 


u 

II 

if 


tt 

w 



<9 

tt 



L 

WORD 

0318 

PC_DfiTfi 

77003E 

m 

i> 

tt 

tt 


tt 

tt 



tt 

m 

t» 

* 

L. 

BYTE 

031ft 

PC_ DftTft 

77003F 

n 

w 

n 

tt 


tt 

m 


tt 

* 

ft 

n 


E 

BYTE 

03£6 

PC_DfiTfi 

770040 

tt 


tt 

s» 

i« 

XI 

u 



tt 

tt 

ft 


L 

NEftR 

03E7 

PC CODE 

770041 

s» 


tt 

it 


If 

n 

« 

tt 


m 

U 


L 

WORD 

03£6 

PC_DftTft 

??004£ 

u 

W 

m 

i* 


tt 

n 

tt 

tt 

tt 

«t 

tt 


L 

BYTE 

03£S 

PC_DftTfl 


€ 






















Symbol 


The IBM Personal Computer MACRO Assembler 01-15-84 


??0043 


tt 

n 

m 


tt 

I, 




tt 


a 

E 

BYTE 

033S 

770044 






ii 





M 


tt 

L 

NEAR 

03FE 

770045 

u 

n 

„ 



,, 





ft 


a 

L 

WORD 

033l~! 

??0046 

u 

w 


at 

n 

w 

a 


» 





L 

BYTE 

0334 

?70047 

M 


m 

tt 


It 

M 





a 

N 

E 

BYTE 

0341 

??0048 

II 


tt 

tt 


at 

„ 

tt 


It 

It 

tt 


L 

NEAR 

04£B 

?70049 

It 


it 

tt 

„ 


tt 

tt 


tt 

tt 

it 

a 

L 

WORD 

0341 

??004A 

n 


„ 

M 

tt 


,, 

tt 

tl 

tt 

at 

tt 

a 

L 

BYTE 

0343 

?'?004B 

« 

n 

at 

tt 

«t 

ii 

it 

tt 

tt 

tt 

it 

it 

a 

E 

BYTE 

0350 

??004C 

M 

ft 

tt 

» 


tt 

tt 

n 

tt 

ft 

tt 

tt 

a 

L 

NEAR 

044£ 

77004D 

m 

» 

tt 

tt 

« 

tt 

* 

o 


tt 

tt 

tt 

i* 

L 

WORD 

0350 

??004E 

M 

M 

ii 

tt 


« 

II 

it 


tt 

tt 

tt 

„ 

L 

BYTE 

035£ 

77004F 

M 

tt 

„ 

M 

it 

it 

II 

tt 

tt 

II 

N 

it 


E 

BYTE 

0360 

??0050 


„ 

it 

tt 

it 

n 

tt 


M 

a 

N 

a 

a 

L 

NEAR 

0459 

??0051 


tt 

tt 

tt 


tt 

tt 

« 

U 

tt 


tt 

It 

L 

WORD 

0360 

??005£ 


tt 


„ 



19 

n 

tt 

tt 


m 

tl 

L 

BYTE 

036£ 

??0053 


a 

u 



u 

M 

it 


it 

tt 

ft 

a 

E 

BYTE 

0373 

770054 


n 

M 




M 

tt 


it 

tt 

tt 

a 

L 

NEAR 

047B 

??0055 

91 

it 

tt 




II 

tt 


tt 

tt 



L 

WORD 

0373 

??0056 

It 

tt 

a 


t« 


a 

it 



M 

n 

a 

L 

BYTE 

0375 

??0057 

It 

•9 

tt 


it 

„ 

tt 

tt 

M 

a 

tt 

tt 

tt 

E 

BYTE 

0383 

770050 

tt 

„ 

tt 


it 


„ 

tt 

tt 


» 

tt 

m 

L 

NEAR 

0498 

770059 

tt 

* 

tt 

a 

„ 


It 

tt 

tt 

a 

a 

« 

a 

L 

WORD 

0383 

77005A 

a 


a 




w 

« 

a 




a 

L 

BYTE 

0385 

77005B 



* 



a 

« 




a 

«* 

a 

E 

BYTE 

0393 

??005C 

a 


a 

ii 

» 



u 




« 

a 

L 

NEAR 

04C8 

? ?005D 


it 

|| 


tt 


tt 


tt 

„ 


tt 


L 

WORD 

0393 

??005E 

* 

M 



tt 


tt 


H 

« 

tt 

It 

* 

L 

BYTE 

0395 

??005F 

* 

w 


It 

ti 

tt 

u 


„ 

tt 


It 

* 

E 

BYTE 

03A5 

??0060 

91 

m 

It 

tt 

« 

tt 



N 

ft 

tt 

tt 

It 

L 

NEAR 

04ED 

770061 

It 

n 

at 

tt 

N 

tt 

tt 

tt 

U 

•1 

tt 

tt 

tt 

L 

WORD 

03A5 

??006£ 

ft 

n 

it 

tt 


It 

tt 

tt 


If 

tt 


„ 

L 

BYTE 

03A7 

??0063 

U 

tt 


tt 

It 

It 

It 

tt 

n 

II 

tt 

tt 

tt 

E 

BYTE 

03B3 

??0064 

u 

* 

«t 

II 

tt 

U 


tt 

M 

tt 


tt 

tt 

L 

NEAR 

0513 

770065 

t* 

at 

tt 

tt 

it 



tt 

m 

tt 


M 

* 

L 

WORD 

03B3 

770066 

m 

tt 

tt 

tt 

it 


tt 

tt 

M 

tt 

tl 


tt 

L 

BYTE 

03B5 

??0087 

it 

tt 

«i 


it 


tt 

o 

n 

tt 

It 


tt 

E 

BYTE 

03C1 

??0068 

«t 

« 

n 


tt 

n 

tt 

tt 

M 

tt 

tt 

tt 

a 

L 

NEAR 

05C£ 

?70069 

n 



SI 

tt 

tt 

» 

at 

M 

tt 

tt 

It 


L 

WORD 

03C1 

??006A 

n 

tt 

n 

tt 


tt 



„ 

tt 

tt 

tt 


L. 

BYTE 

03C3 

??006B 

n 

t« 

Rf 

tt 

at 

it 

« 


M 

tt 

tt 


„ 

E 

BYTE 

03D0 

??006C 

a* 

tt 

tt 

tt 

tt 

« 

w 

tt 

a 

tt 

tt 


tt 

L 

NEAR 

05E1 

??006D 

tt 

* 

tt 

tt 

« 

« 

tt 

tt 

a 


tt 


it 

L 

WORD 

03D0 

77006E 

u 

tt 


tt 

n 

m 

tt 

•t 

n 

tt 

tt 

tt 

* 

L 

BYTE 

03D£ 

??006F 

tt 



tt 

tt 

it 

* 

tt 

•• 

tt 

tt 

tt 

» 

E 

BYTE 

03DF 

??0070 


u 



n 

tt 

tt 

it 

M 

tt 

ft 

tt 

M 

L 

NEAR 

05F8 

?70071 

tl 

» 

tt 

II 

tt 

tt 

tt 

it 

a 

it 

tt 

a 

« 

L 

WORD 

03DF 

??007£ 

n 

tt 

tt 

tl 

it 

St 

tt 

tt 

a 

tt 

tt 

tt 

tt 

L 

BYTE 

03E1 

770073 

n 

n 

it 

tt 

» 

tt 

tt 

tt 


tt 

tt 

tt 

tt 

E 

BYTE 

03EE 

770074 

m 

u 


n 

tt 

it 

M 

tt 

a 

tt 

tt 

a 

tt 

L 

NEAR 

06£E 

770075 

u 



m 

tl 

s* 

It 

tt 

tt 


tt 

a 

tt 

L. 

WORD 

03EE 

770076 

99 

tt 

tt 

9* 

tt 

tt 

* 

w 

tt 

tt 

tt 

it 

tt 

L 

BYTE 

03F0 

770077 

m 

tt 

•t 

» 

tt 

tt 

* 

* 

it 

tt 

tt 

it 

tt 

E 

BYTE 

03FD 


PAGE 


PC_DATA 

PC_CODE 

PC_DATA 

PC_DATA 

pcIdata 

PC_CODE 
PC_DATA 
PC_DATA 
PC_DATA 
PC_CODE 
PC__DATA 
PC_DATA 
PC__DATA 
PC__CODE 
PCJDATA 
PC_DATA 
PC_DATA 
PC_CODE 
PC_DATA 
PC„DATA 
PC_DATA 
PC_CODE 
PC_DATA 
PC_DATA 
PC„DATA 
PC_CODE 
PC_DATA 
PC_DATA 
PC_DATA 
PC..CODE 
PCJDATA 
PC_DATA 
PC_DATA 
PC_CODE 
PC_DATA 
PC„DATA 
PCJDATA 
PC_CODE 
PC_DATA 
PC_DATA 
PC _DATA 
PCJDODE 
PC_DATA 
PC__DATA 
PCJDATA 
PC_CODE 
PC__DATA 
PC_DATA 
PC_DATA 
PC_CQDE 
PC_DATA 
PC_DATA 
PC_DATA 


Warning Severe 




























i 

The IBM Personal Computer MACRO Assembler 01-15-84 PAGE 

« 

m Errors Errors 

1 0 0 

4 

4 

4 

4 

t 

( 

I 

f 

I 

4 

f 

4 

4 

4 

« 

4 

f 

< 


€ 

Symbols—11 

t 

€ 

C 

€ 

f 

4 

4 

t 

i 

4 

f 

4 

f 

4 

€ 

4 

4 

4 

< 

« 



The IBM Personal Computer MACRO Assembler 01-14—04 


PAGE 


1-1 


PAGE 60,132 
5 

-*********************************************************************** 
5 Filename is PCSCH2B. ASM I 

- *********************************************************************** 
5 This file is the second of two which contain the code for all of the I 
5 routines described in Sections 2.1 through 2-7 of the Program Logic I 
; Description, OMNINET PCShare Disk Server Emulator, Version 2.0, dated I 
5 7 November' 1983- The file also contains allocation statements for 1 
l data structures managed by the Transporter Logical Device- I 

-*********************************************************************** 

END IF 

9 

5 *********************************************************************** 

GEN^STPRT <TL> ,-TLD structures 



4 


. LALL 



4 * 


END IF 



4 


ENDIF 



4 


END IF 



4 


IFIDN 

<TRACE>, <TRACE> 

= 0001 

4 * 

TRACE* 

5 = 

1 


4 


ENDIF 



4 


ENDIF 



4 


ENDIF 



4 


ENDIF 



4 


ENDIF 



4 


ENDIF 



4 


ENDIF 



4 


ENDIF 



4 


IFIDN 

<DEBUG>, <DEBUG> 

= 0001 

4 

DEBUG* 

= 

1 


4 


ENDIF 



4 


ENDIF 



C + 


INCLUDE 

PCSTRUC.CRV 


C+ 5 *********************************************************************** 
C+ 5 Filename is PCSTRUC.CRV I 

C4 5 *********************************************************************** 
C+ 5 This file contains all structure definitions for the implementat ion I 
C-+* 5 of the Corvus OMNINET PCShare Disk Server Emulator. It is included 1 
C+ $ in each of the assembly files when the STPRT macro is invoked- The I 
C+ selectors specified with that macro invocation cause the associated i 
C~h 5 structure definitions to be included in the assembly- Any set of i 
C+ - definitions can be included with an appropriate set of selectors. I 
C+ «*********************************************************************** 


C+ § l 

C+ § Versions 2.0 I 

C-+- 5 I 

C4- « Last Updates 14 January 1984 I 

C+ 5 I 


C4* •*********************************************************************** 

C* ENDIF 
O § 
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C+ ENDIF 
C+ ; 




C+ 
C + 

c+ 

5 



Emulator Resident Data 

Structures 




5 

5 








c+ 

« 

9 

Universal 

value definitions 





c+ 

5 






ss 

0000 

c*+* 

♦True 

EQU 

0 

;Usually 

indicates OK or 

normal 

nr 

0001 

c+ 

♦False 

EQU 

1 

5 Usually 

indicates NG or 

unusual 

=r. 

0000 

c+ 

♦ Zero 

EQU 

0 

;What is 

there to say 


nr 

0001 

c+ 

♦One 

EQU 

1 

; about 

these? 



0060 

c+ 

♦BKriurn 

EQU 

96 

5 Number « 

of internal stack 

entries 

as 

0001 

c+ 

$Vir_Drvl EQU 

1 

;Value f« 

or Virtual Drive 

1 


C+ ; 

C+ ; 8£59A PIC usage values 

C+ ; Reference: Intel 8086 User’s Manual 

C+ ; 


=r 

00£1 

C+ 

$P 8 £opl 

EQU 

£ 1 H 

;Port for GCWi commands 


00£0 

C+ 

$P8£op0 

EQU 

£0H 

5 Port for OCWE, GCW3 commands 



C+ 

5 




sr 

000B 

C+ 

$P 8 £Ris 

EQU 

0BH 

5 Read Interrupt Service register 

« 

00£0 

C+ 

*P 8 SEoi 

EQU 

£0H 

§ Simple end of interrupt 

sr 

0001 

C+ 

*P 8 £TML 

EQU 

1 

5 Timer interrupt level bit 

rn 

0005 

c+ 

$P 8 £EML 

EQU 

4+*P8£TML 

;Transporter and timer levels 

sr 

00FA 

C+ 

$P 8 £enb 

EQU 

0FFH-*P8£EML 

5 Enable xporter and timer 


C+ ; 

C+ - Structure Name: Emulator Communication Table 

C+ ; Reference: Program Logic description, Section 1.4 

C+ ; 

C+ 5 Associated values and flags 

C+ ; 



0080 

c+ 

$Cons 

EQU 

80H 

5 Write messages to console 

nr 

0040 

c+ 

$ConsPT 

EQU 

40H 

5 Prompt for console at initialization 

=r 

0000 

c+ 

$AtrNrrn 

EQU 

0 

5 Standard attributes of Emulator files 

as 

000 A 

c+ 

$TickMX 

EQU 

10 

5 Default timer tick refresh count 



c+ 

5 




S5 

0080 

c+ 

*TBir.tI 

EQU 

80H 

;Transporter interrupts installed 

*» 

0040 

c+ 

$TBrenb 

EQU 

40H 

5 Transporter to run enabled 


00 £0 

c+ 

$TBrtck 

EQU 

£0H 

5 Transporter to run off timer tick 


00DF 

c+ 

$TBnotk 

EQU 

0FFH-$TBrtck 

5 Mask to clear timer tick on 

- 

0010 

c+ 

$TBinit 

EQU 

10H 

; Prompt for interrupts at init 

nr 

0004 

c+ 

$TRChrd 

EQU 

4 

;Trace output tp hard disk 

=s 

000 £ 

c+ 

*TRCcor. 

EQU 

o 

k. 

5 Trace output to console 

as 

0001 

c+ 

$TRCdsk 

EQU 

1 

5 Trace output to disk 



c+ 

5 






c+ 

3 

Interrupt vector numbers 




c+ 

• 

9 





000A 

c+ 

$Cal1EM 

EQU 

0AH 

1 Emu 1 ator interrupt 


001B 

c+ 

$CallCB 

EQU 

1BH 

5 Contro 1 _break has occurred 


00 1 C 

c+ 

SCallTK 

EQU 

1CH 

? Timer interrupt appendage 



The IBM Personal Computer MACRO Assembler 01-14-04 


PAGE 


1 


= 00£1 







C+ 

*CalIDS 

EQU 

£ 1 H 

;DQS function call 

= 00£3 







C+- 

*Cal10ft 

EQU 

£3H 

;Control_break appendage 

— 0 0 4 







C4- 

*CallKR 

EQU 

34H 

;Gets location In-DQS flag 

= 0066 







C+ 

SCallDI 

EQU 

66 H 

;DQS intercept 

= 0067 







c+ 

$Cal1TM 

EQU 

67H 

;Timer appendage recall 

= 0001 







c+ 

$Cal1TP 

EQU 

1 

;Trap interrupt 








c+ 

5 




= 00CD 







c+ 

$INT* 

EQU 

0CDH 

;Int errupt inst ruction code 

= 0001 







c+ 

$TrapFL 

EQU 

1 

;Posit ion of trap flag in ftH 








c+ 

M 

) 











c+ 

5 

Field 

lengths 









c+ 

? 




= 0008 







c+ 

*>*Dir 

EQU 

a 


= 0008 







c+ 

$$Nam 

EQU 

a 


= 0004 







c+ 

$$Next 

EQU 

4 


= 000 ft 







c+ 

$$Serv 

EQU 

10 









c+ 

N 

? 











c+ 

5 











c+ 

EOT 

STRUC 



0000 

50 

43 

53 

48 

41 

52 

c+ 

Iden 

DB 

’PCSHftRE£’ 

identifier of the version 


45 

sa 





c+ 





0008 

43 






c+ 

EC_Dat 

DB 

’ C’ 

;Drive for Emulator files (character) 

0009 

03 






c+ 

EC_Drv 

DB 

3 

;Same drive numeric 1 NEW FIELDI 

000 ft 

40 






c+ 

EC_F1g 

DB 

♦ConsPT 

5 Flag for log output to console 

000B 

01 






c+ 

Tree 

DB 

$False 

;Trace active switch 1 NEW FIELD 1 

0000 

01 






c+ 

Cold 

DB 

$False 

;Cold start completed I NEW FIELDI 

000D 

01 






c+ 

EC_Trm 

DB 

$False 

;Emulator terminated 1 NEW FIELDI 

000E 

0064 





c+ 

Max 

DW 

100 

;Maximum number records in log file 

0010 

0000 





c+ 

Next 

DW 

0 

;RRN for next log record 

001 £ 

50 

43 

53 

48 

41 

52 

c+ 

Dir 

DB 

’PCSHftRE ’ 

;Name of directory for Emulator files 


45 

£0 





c+ 





001 ft 

50 

43 

53 

48 

41 

52 

c+ 

Nam 

DB 

’PCSHftRE ’ 

;Fi1enarne for Em u1 at or fi1es 


45 

£0 





c+ 





00 ££ 


0 ft 

C 




c+ 

Serv 

DB 

$$Serv DUP (’ 

’) 5 Emulator name as a disk server 


£0 C+ 

3 C+ 

C+ 


00£C 

00 

C + 

EC_fltrU 

DB 


5 Attributes of User area file 

IN FI 

00£D 

00 

c+ 

EC AtrS 

DB 

$fltrNrm 

;Attributes of System area files 

IE I 1 

00£E 

00 

c+ 

EC_fttrL 

DB 

$AtrNrm 

;fittributes of Log file 

IW El 

00£F 

C0 

c+ 

EC_TBI 

DB 

$TBint I+$TBrenb 

5 Transporter- irit flags 

1 L 1 

0030 

0 ft 

c+ 

TLtmck 

DB 

$TickMX 

5 Current t i rner tick co unt 

1 D 1 

0031 

0 ft 

c+ 

TLtmrs 

DB 

$TickMX 

5 Value to reset timer tick count 

1 S 1 

003£ 

01 

c+ 

KEEPout 

DB 

fFalse 

5 DOS has been entered flag 

1 1 

0033 

01 

c+ 

INTdfr 

DB 

$False 

;Deferred interrupt flag 

1 I 

0034 

0000 

c+ 

DOSdkO 

DW 

0 

;Holds location of DOS 

i i 

0036 

0000 

c+ 

DOSdkS 

DW 

0 

5 Critical section (In-DOS) Flag 

i i 

0038 

0000 

c+ 

DDRH 

DW 

0 

;Holds location of request header 

when 

003ft 

0000 

c+ 

DDRHS 

DW 

0 

; Device Driver called 1 NEW 

FIELDi 

003C 

0000 

c+ 

TckO 

DW 

0 

3 HoIds location of tirner tick int 

when 

003E 

0000 

c+ 

TckS 

DW 

0 

; no transporter' ints ! NEW 

FIELD 1 

0040 


c+ 

ECT 

ENDS 






c+ 

Tj. 

5 



I 

l 

l 

I 

I 

1 

I 

I 

I 

! 

! 

! 

1 

1 

1 

1 

i 

! 

1 

\ 

l 

i 

\ 

! 

i 

I 

I 

1 

! 

1 

I 

1 

! 



C+ ; Structure Name: Log Request Block 
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c+ 

c* 

c+ 

c+ 

0*+* 

9 

9 

5 

5 

5 

Reference s 

Associated 

Program Log i c Descr i pt ion, f Sect i on 4. £7 

values 


0066 

c+ 

c+ 

c+ 

c+ 

SMAXMSG 

5 

M 

9 

5 

EGU 102 

Log message 

5 Maximum message length 

numbers 

ss 

0001 

c+ 

$MND00 

EQU 

1 

$Initialization message 


0002 

c+ 

*MNT00 

EQU 

£ 


as 

0003 

c+ 

*MNT01 

EQU 

3 


5= 

0004 

c+ 

$MNT02 

EQU 

4 


=s 

0005 

C+ 

*MNT03 

EQU 

5 



0006 

c+ 

SMNT04 

EQU 

6 


as 

0007 

c+ 

$MNT05 

EQU 

7 


22 : 

0008 

c+ 

$MNT06 

EQU 

8 


=s 

0009 

c+ 

$MND01 

EQU 

9 


5.*= 

000A 

c+ 

$MND02 

EQU 

10 


as 

000B 

c+ 

*MND03 

EQU 

11 


==: 

000C 

c+ 

$MND04 

EQU 

1 £ 



000D 

c+ 

*MNT07 

EQU 

13 


ss 

000E 

c+ 

$MNT08 

EQU 

14 


=S 

000F 

c+ 

*MNT09 

EQU 

15 


SB 

0010 

c+ 

SMNT010 

EQU 

16 


35 

0011 

c+ 

$MND05 

EQU 

17 


:ss 

0012 

c+ 

$MNT011 

EQU 

18 


=2 

0013 

c+ 

$MND06 

EQU 

19 

5 ORB missing 


0014 

c+ 

c+ 

c+ 

$MNT012 

ft 

9 

LRB 

EQU 

STRUC 

20 

;Bad pipes tables 

0000 00 

c+ 

Cde 

DB 

0 

;Module ID code 

0001 00 

000E 

nnnnnnnnnnn 

+++++++++++ 

LR_Len 

LRi 

! 

IF <TL* 

9 

5 

M 

9 

9 

9 

M 

9 

9 

DB 0 5 Length of the message string 

ENDS 

OR CI$ OR DM$ OR LC*> 

Structure Name: Operation Request Block 

Reference: Program Logic Description, Section 2.2.1 

Associated completion codes 

as 

00 FF 

C+ 

$0Pinp 

EQU 

0 FFH 5 Operation in progress 


0000 

c+ 

$0Pcne 

EQU 

0 

, 5 Completed without error 

= 

0001 

c+ 

$0Pinl 

EQU 

1 

;Completed, incorrect length 

ss 

0002 

c+ 

$QPtrb 

EQU 

2 

; Term i nat ed n i nva 1 i d ORE* 

ss; 

0003 

c+ 

*0Ptto 

EQU 

3 

;Terminated, receive time-out 

;ss 

0004 

c+ 

♦OPtdf 

EQU 

4 

; T errn inat ed, i nva lid d at a f or mat 

ss: 

0005 

C* 

$0Ptng 

EQU 

5 

5 Terminated, transmission failure 

r - 

0006 

c+ 

$0Pttf 

EQU 

6 

5 T errn i nat ed, t ransport er fa i 1 ure 

ss: 

0007 

c+ 

c+ 

$0Ptcl 

5 

EQU 

7 

5 Terminated, control length mismatch 
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C+ 

ORB 

STRUC 



0000 FF 

c+ 

cc 

DB 

*QPinp 

5 Cornp 1 et i on Code 

0001 00 

c+ 

OP 

DB 

0 

5 Operat i ona I pararnet er 

000£ 0000 

c+ 

Sz@ 

DW 

0 

5 Number of bytes of data 

0004 0000 

c+ 

RB_Data 

DW 

0 

5 Offset of data 

0006 0000 

c+ 

RB_Datas DW 

0 

5 Reserved for segment address 

0008 

c+ 

ORB 

ENDS 




C+ 

9 





C-+- 

ENDIF 





c+ 

« 





c+ 

c+ 

c+ 

c+ 

c+ 

IF (DR* 

OR TL* 

OR LC*> 



9 

5 

5 — 

5 

— 

Transporter 

Usage Parameters 

» 0100 

c+ 

*Init TA 

EQU 

100H 

;Initial transporter CCB address 

« 7FFF 

c+ 

$MaxDly 

EQU 

7FFFH 

5 Max loop count for operation complet 

== 0010 

c+ 

$MaxRty 

EQU 

10H 

;Maximum number operation retries 

■ 000A 

o 

*MaxWte 

EQU 

10 

;Maximum wait time in seconds 

= 01FE 

c+ 

$ProID 

EQU 

01FEH 

;protoco1 identifier 

= 00CF 

c+ 

*Sr.dNAD 

EQU 

0CFH 

;Inva1id command for NPD rep1y 

= 0£11 

c+ 

$MaxTBD 

EQU 

5£9 

5 Longest data transfer <w/o disk stat 


c+ 

c+ 

c+ 

c+ 

c+ 

* 

9 





9 

5 


Transporter* Socket Usage Conventions 


9 

9 




* 00B0 

c+ 

*SokTD 

EQU 

0B0H 

^ To trarisrnit data 

= 0080 

c+ 

*SokTM 

EQU 

80H 

5 To transmit an NLM 

= 0080 

c+ 

*SokRM 

EQU 

80H 

^To receive an NLM 

= 00B0 

c+ 

*SokRC 

EQU 

0B0H 

5 To receive initial command seq uence 

= 00A0 

c+ 

*SokRL 

EQU 

0A0I-I 

5 To receive remainder of long command 


c+ 

c+ 

c+ 

9 



1 

i 

I 

I 


9 

9 

Structure Names Name L 

ookup Message 


c+ 

c+ 

c+ 

9 

References Program Logic Description, Section £\ £\ 3 


9 

9 





e-t- 

M 

9 

Associated message type 

codes (most significant byte) 


c+ 

« 

9 




* 0000 

c+ 

*NLHi 

EQU 

0 

r* Hel lo 

= 0001 

c+ 

*NLAny 

EQU 

i 

5 Pny disk server (old protoco1) 

= 000£ 

c+ 

*MLWho 

EQU 

L 

5 Who are you? 

= 0003 

c+ 

*NLWhr 

EQU 

3 

5 Where are you? 

= 0010 

c+ 

*NLId n 

EQU 

10H 

5 Identification 

= 00FF 

c+ 

$l\ILBye 

EQU 

0FFH 

5 Goodbye 


c+ 

9 





c+ 

M 

9 

Associated device types 

of interest to Emulator 


c+ 

M 

9 




= 0001 

c+ 

*NLDsk 

EQU 

1 

? Disk Server 

= 00FF 

c+ 

*NLDny 

EQU 

0FFH 

if PI 1 Devices 


c+ 

5 





c+ 

9 

Associated Name Length 



c+ 

9 




= 000A 

c+ 

^NarneLN 

EQU 

10 

^ Needed because STRUC is weak 
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C+ ; 

C+ ; The structure itself (arithmetic reverses byte order 






C+ 

9 

for transporter memory 

storage) 





C+ 

M 

9 








C+ 

NLM 

STRUC 



0000 

FE01 



C+ 

Pid 

DW 

$ProID/£56 + £5 

;6*<*ProID AND 0FFH) 

000£ 

0000 



C+ 

Mgt 

DW 

$NLh i 

; Message? Type 

0004 

0000 



C+ 

Sv^c 

DW 

0 

$ St at ion Number of send< 

0006 

0100 



c+ 

Dev 

DW 

£56**NLDsk 

;Device Type 

0008 

50 43 

53 

48 41 5£ 

c+ 

NL^Name 

DB 

’PCSHARE ’ 

;Device or user name 


45 £0 

£0 

£0 

c+ 





00 1£ 




c+ 

NLM 

ENDS 




C+ ; 

C+ ; Structure Name: Receive ICS control area 

C+ ; Reference: Corvus OMNINET Programmer’ Guide 


0000 0000 
000 £ 0000 
0004 


C+ 

9 

— 

— 

c+ 

c+ 

N 

RRRCV 

STRUC 


c+ 

Lof cm 

DW 

0 

C+ 

ELofRp 

DW 

0 


RRRCV 

ENDS 



5 length of the command being sent 
;Expected reply length (w/o status) 


0000 0000 
0002 00 
0003 


c+ 

C+ 

C“*~ 

c* 

C4- 

c+ 

c+ 

C-H 

c+ 

c+ 


5 

5 

5 

m 

9 

9 


Structure Name: Send Reply control area 
Reference: Corvus OMNINET Programmer’ Guide 


RRSND STRUC 
ALofRp DW 0 

Dstat DB 0 

RRSND ENDS 


;Actual length of reply (incl status) 
;Disk status 


0000 00 
0001 01 
000 £ 00 
0003 00 

0004 


0000 01 
0001 00 

000 £ 00 
0003 00 


c+ 

C+ 

C+ 

C+ 

C+ 

C+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 

c+ 



5 

5 

5 

TSTH 
Int 
TT__C I 
NE 

TT_NAD 

TSTH 



M 

9 

9 

9 

N 

TSTE 

PN 

TT_ST 

SK 

TT OP 


Structure Name: Transporter Status Table Header 
Reference: Program Logic description. Section £.3 


STRUC 

DB 0 ;Interrupt depth indicator 

DB $False ;Command Interpreter invocation flag 

DB 0 ;Number of entries in TST 

DB 0 5 Network address of Emulator 

ENDS 


Structure Name: Transporter Status Table Entry 
Reference: Program Logic Description, Section £.3 


STRUC 

DB $False 

DB 0 

DB 0 

DB 0 


;ORB pending flag 
;Status code from result record 
{Socket to be used 

{Transporter comrnrnand I NEW USAGE I 
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000A 

0000 

c+ 

CCB 

DW 

0 

0006 

0000 

0+ 

RR 

DW 

0 

0000 

0000 

C+ 

Dt 1 

DW 

0 

000ft 

0000 

C+ 

Dsz 

DW 

0 

000C 

0000 

C+ 

Isr 

DW 

0 

000E 

0000 

c+ 

Isrs 

DW 

0 

0010 

0000 

c+ 

TT_0rb 

DW 

0 

001£ 

0000 

c+ 

TT Orbs 

DW 

0 

0014 


0+ 

TSTE 

ENDS 




0+ 

u 

9 





c+ 

END IF 





0+ 

M 

9 





0+ 

IF (TL* 

or LC$) 




c+ 

9 


— 



0+ 

5 

Struct uv 

'e Name s 



0+ 

5 

Reference s Progr 



c+ 

9 

— 

-— 



0+ 

9 





c+ 

9 

Associated drive 



0+ 

9 



= 


0+ 

$LCnop 

EQU 

♦False 

as 


c+ 

$LCopn 

EQU 

♦True 

= 00FF 

c+ 

$LCabt 

EQU 

0FFH 

= 0000 

c+ 

$LCaok 

EQU 

0 



c+ 

9 





0+ 

9 

Asociated data v 



c+ 

9 



— 


c+ 

$LCmaxL 

EQU 

♦MaxTBD 



0+ 

9 





0+ 

TSTLE 

STRUG 


0000 

00 

0+ 

LE CC 

DB 

0 

0001 

00 

0+ 

LEJ3P 

DB 

0 

000£ 

0000 

0+ 

LE_Len 

DW 

0 

0004 

0000 

0+ 

Trrn 

DW 

0 

0006 

0000 

c+ 

Trrns 

DW 

0 

0000 

0000 

0+ 

Rev 

DW 

0 

000ft 

0000 

0+ 

Revs 

DW 

0 

0000 

0000 

0+ 

LE_Isr 

DW 

0 

000E 

0000 

0+ 

LE Isrs 

DW 

0 

0010 

0000 

c+ 

LE_BP 

DW 

0 

001£ 

FFFF 

0+ 


DW 

0FFFFH 

0014 


c+ 

TSTLE 

ENDS 




c+ 

n 

9 





c+ 

9 

-- 

— 



0+ 

9 

Structur 

‘e Name: 



c+ 

M 

9 

Reference; Progr 



c+ 

9 

--— 

—-- 



0+ 

9 





0+ 

9 

Associated usage 



0+ 

9 



= 0000 


c+ 

♦RQUseE 

EQU 

80H 

= 0040 


0+ 

♦RQUseR 

EQU 

40H 

= 00£0 


0+ 

♦RQUseL 

EQU 

£0H 

«= 0010 


0+ 

♦RQUsel 

EQU 

10H 



0+ 

« 

9 




5 Transporter address of the CCB 
5 Transporter address of result record 
5 Transporter address of data area 
5 Length of data area in bytes 
; Offset address of int service routine 
5 Reserved for segment address 
5 Offset address of pending ORB 
5 Reserved for segment address 


Transporter Status Table Local Command entry I 
am Logic Description, Section 8.3 I 


communication flag values 

5 No operation indication 
5 Operation in progress indication 
5 9 Operation aborted’ end indicat ion 
5 ’All ok’ end indication 

1 ties 

5 Longest data transfer allowed 


;RB« CC or RQ.USE field 
5 RB„ OP field when serving as ORB 
;Length in bytes of remaining data 
5 Offset from which to fetch data 
5 Segment address of data 
5 Offset to send reply 
5 Segment address for reply 
^Offset of interrupt service routine 
; Resderved for segment address ISR 
5 Stack segment offset of inout registers 
? Reserved 


Command Request Queue Entry 
m Logic Specification, Section 2,5 


values 

;Entry in queue 

5 Request received for command data 
§ Loca1 command 

I Internally generated command 
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0004 


*RQCsze EQU 


I Number of command bytes enqueued 


0000 00 
0001 00 
000 £ 0000 


0004 


04 C 


CRQE 

Use 

NAD 

Len 

Crnnd 


The structure itself 


STRUC 

DB 

DB 

DUI 

DB 


*RGCsze Dup<0> 


;Usage flags 

;Network Address of requestor 
;Length in bytes of expected reply 
;First four command bytes 


0008 


CROE 


END IF 


IF (DR$ OR TL$> 


Structure Name: Command Request Queue Header 
Reference: Program Logic Description, Section 


Associated queue status indicator values 


= 0000 

= 0001 
= 00FF 


$RGmt 
$RQent 
$RQful 


;Queue is empty 

;Queue has entries but is not full 
;Queue is full 


0080 


*RQdse 


;Disk status error flag bit 


0000 00 
0001 00 
000 £ 0000 
0004 0000 

0006 0000 
0008 


CRQH 

Qst 

Dsc 

End 

Top 

Bot 

CRQH 


STRUC 

DB 

DB 

DW 

DW 

DW 

ENDS 


$RQmt 

0 

0 

0 

0 


;Queue status indicator 
;Current disk status code 
;Offset address following CRQ 
•Offset address of head entry 
;Offset address of tail entry 


END IF 


IF TL$ 


Structure Name: Name Lookup Message Table 
Reference: Program Logic Description, Section £.7 


Associated command modifiers 


0003 

0000 


*MTAdd 

$MTDel 


;AddActive command 
;De1eteActive command 


0000 10 
0001 00 


0£ C 


NLMT 

MT Use 
MT~NAD 


STRUC 


$RQUseI 

0 

£ DUP(0FFH) 


;Specifies internal command 
5 NAD of sender I NEW FIELD I 
5 Unused part of parameter block 




f 

€ 

I 

t 

I 

I 

i 

i 

« 

« 

€ 

€ 

f 

( 

€ 

€ 

4 

f 

€ 

€ 

€ 


The IBM Personal Computer MACRO Assembler 01-14-84 


PAGE 


1-9 


0000 

0001 

000 £ 

0004 

0005 

0008 

0008 

000A 

000B 

000C 


0000 

0001 

000 £ 

0004 


FF 


0004 

0005 

0006 


0010 
0011 
00 IS 


0016 


34 

00 


0A C 


?0 


00 

00 


04 C 


£0 


00 

00 

0000 

00 

00 

0000 

0000 

00 

00 


FF 

00 

0000 


C+ 

C+ 

C + 

C+ Opc DB 

C+ MT Mod DB 
C+ MT__Narne DB 
C+ 

C+ 

C+ 

C+ MT_Src DB 
C+ MT_Dev DB 
C+ Rsvd DB 
C+ 

C+ 

C+ 

C+ NLMT ENDS 
C+ ; 

C+ ENDIF 
C+ ; 

C+ IF 
C+ ; — 


34H 

0 

10 DUP(’ ’) 


0 

4 DUP(’ ’ ) 


{Internal is always hex 34 
{Will be set to command modifier 
;Device or user name 


{Station number of sender 
;Device type of sender 
{Four byte user area 


(DR* OR TL* OR LC*) 


C+ ; 

C+ ; 

C+ ;- 

C+ ; 

C+ ; 

C+ { 

C+ CCBLK 
C+ CC_Cmnd 
C+ 

C+ RRA 
C+ Sock 
C+ 

C+ CCJData 
C+ Dat1 
C+ ConIn 
C+ DHost 
C+ CCBLK 
C+ 

C+ 

C+ 

C+ RRKD 
C+ RCode 
C+ SHost 
C+ Rcvlen 
C+ RRKD 
C+ 

C+ 

C+ 


Transporter structures and associated values 
Reference: Corvus OMNINET Programmer’s Guide 


Transporter Command Control Block 


STRUC 

DB 

DB 

DW 

DB 

DB 

DW 

DW 

DB 

DB 

ENDS 


0 

0 

0 

0 

0 

0 

0 

0 

0 


byte 


;Command 

{fill for high address 
;address Result Record 
;socket to use 
{fill for high address byte 
{Data address 
;Data length 
5 Control length 
;Destination host (if write) 


Transporter Result Record structure 


STRUC 

DB 

DB 

DW 

ENDS 


0FFH 

0 


;Return Code 

{Source Host (if read, 0 write) 
{Length data received (if read) 


Transporter port definitions 



0£49 

C+ 

*RdRAM 

EQU 

£49H 

5 To 


0£4B 

C+ 

SRdRAMI 

EQU 

£4BH 

i To 


0£48 

C+ 

*RdStat 

EQU 

£48H 

; To 



C+ 

* 





0£4Q 

c+ 

*WrCtrH 

EQU 

£48H 

5 To 


0£4A 

c+ 

SWrCtrL 

EQU 

£4AH 

5 To 


read without incrementing counter 
read and increment counter 
read st at us 


I 

t 

€ 

< 

C 

€ 

I 

f 

f 

€ 

« 

€ 

I 

I 

4 

€ 

4 

4 

f 

C 

* 

f 



The IBM Personal Computer MACRO Assembler 01-14-84 


PAGE 


1-10 


-- 

0£4B 

C+ 

*WrRAM 

EQU £4BH 

•To write data and increment counter 



C+ 

H 

9 


;To strobe command address 

SS 

0£49 

C+ 

$WrStbe 

EQU £49H 



C+ 

5 



ss 

024C 

C+ 

$DiINT 

EQU £4CH 

;To disable (disarm) interrupts 

- 

0£4D 

C+ 

$C1INT 

EQU £4DH 

5 To clear interrupt latch 

ss 

0£4E 

C+ 

$EnINT 

EQU £4EH 

;To enable (arm) interrupts 

ss 

0£4F 

C+ 

*StINT 

EQU £4FH 

5 To read interrupt status 



C+ 

5 





C+ 

« 

9 

Transporter Status 

Flags 



C+ 

5 



=s 

0080 

C+ 

$TRedy 

EQU 80H 

5 Transporter ready 

ss 

00£0 

C+ 

$TRenb 

EQU £0H 

;Transporter interrupts enabled 

= 

0010 

C+ 

*TRpnd 

EQU 10H 

{Transporter interrupt pending 



c+ 

M 

9 





c+ 

9 

Transporter command codes 



c+ 

u 

9 



= 

0040 

c+ 

$Send 

EQU 40H 

;Send message 

ss: 

00F0 

c+ 

$Set up 

EQU 0F0H 

{Setup to receive message 

ss 

0010 

c+ 

$EridRcv 

EQU 10H 

{End receive if no message 

ss: 

00£0 

c+ 

$ I m t T 

EQU £0H 

{Initialize tramsporter 

=s 

0001 

c+ 

$UhoftrnI 

EQU 01H 

{Finds transporters NAD 

ss 

000£ 

c+ 

$Echo 

EQU 0£H 

{Test presence of specified transporter 



c+ 

5 *PP 

EQU 08H 

{Peek/Poke not used 



c+ 

5 





c+ 

5 

Transporter result 

codes 



c+ 

5 



ss 

0000 

c+ 

♦TrOK 

EQU 00H 

{ Command comp1eted successfu11y 


007F 

c+ 

$TrST 

EQU '7FH 

{Successful transmit retry maximum 

ss 

0080 

c+ 

♦TrNG 

EQU 80H 

{Transmit failure, retry count exceeded 

ss: 

0081 

c+ 

♦TrDL 

EQU 81H 

{Data too long for receive buffer 

ss: 

008£ 

c+ 

♦TrNS 

EQU 8£H 

{Receiver’s socket not set up 

ss: 

0083 

c+ 

*TrCL 

EQU 83H 

{Cont ro 1 1 engt h rn i srnat ch 

ss: 

0084 

c+ 

$Tr IS 

EQU 84H 

{Invalid socket 

ss: 

0085 

c+ 

$TrNR 

EQU 85H 

{receive socket in use 

ss: 

0086 

c+ 

*TrIT 

EQU 86H 

{invalid transporter address 

ss: 

00C0 

c+ 

*TrEA 

EQU 0C0H 

{Echo command acknowledged 

ss: 

00FE 

c+ 

*TrSS 

EQU 0FEH 

{Receive socket setup successful 



c+ 

5 





c+ 

m 

9 

Transporter usage 

va1ues 



c+ 

9 



ss: 

0040 

c+ 

*NADok 

EQU 64 

{First invalid NAD value 

:ss 

00FF 

c+ 

$A11NAD 

EQU 0FFH 

{NAD for broadcast 

ss: 

00 FF 

c+ 

$TrSU 

EQU 0FFH 

{Initialization value for resu11 code 



c+ 

•1 

9 





c+ 

* 

9 





c+ 

END IF 





c+ 

3 





c+ 

ENDIF 





c+ 

m 

9 





c+ 

ENDIF 





c+ 

91 

9 





c+ 

ENDIF 





c+ 

« 

9 





c+ 

ENDIF 





< 

i 

€ 

« 

i 

t 

f 

f 

f 

i 

l 

f 

« 

« 

l 

i 

f 

« 

4 

« 

< 


The IBM Personal Computer MACRO Assembler 81-14-84 


PABE 


1-11 


0080 


00 IS 
0004 


0002 

0000 


0004 

0003 

0000 


C + 
C + 
C+ 

c+ 

c+ 

c+ 


ENDIF 

ENDIF 

5 

ENDIF 


; ***********•*****************************•************■*■*■*■*•*•*■*•*-*•*•*•*•**•*•*•*••** 


Segment Usage Definition 


* ***##**##*1Hf-**#****#****1HH('#**#*********#*****#**'IH(-iHH t**#*#***##***#*#* 


PCS 


GROUP PC_CODE, PC__DATA 

ASSUME CS:PCS,DS:PC_DATA, ES:PC_DATA 


*****##*#*-x***#*#*#****#*#***##*-***#**##-**##***#**#*#****#*******-*#**#* 

External Symbol Definitions I 

***************************************************** ■**•***•*■*■*•#•*■**•* •**••*#•*•* 


EXTRN 

EC 

sBYTE 

5 Emu 1 at or Commurn i cat i on Table 

EXTRN 

MT 

: BYTE 

;Name Lookup Message Table 

EXTRN 

RQ 

:BYTE 

5 CRQ Header 

EXTRN 

DM. 

_ERR_LQG:NEAR 

;Error 1 og routine 

EXTRN 

EM 

..TRACE: NEAR 

5 Trace routine 

EXTRN 

LC 

__RCV_CMND: NEAR 

;Local Command receive 

EXTRN 

TL 

_RCV_NLM:NEAR 

1 Receive NLM routine 

EXTRN 

TL 

_RCV__ ICS: NEAR 

;Receive ICS routine 

EXTRN 

LC 

_RTN_RSLT:NEAR 

l Loca1 Command resu1t 

EXTRN 

LC 

_FETCH_LC:NEAR 

$Local Command fetch long 

EXTRN 

TL 

_INT__NAD: NEAR 

5 Int svc rtn for send NPD 

EXTRN 

TL 

_FETCH._ IC: NEAR 

5 Fetch internal command 

EXTRN 

LC 

_INT_NLM:NEAR 

§ Local Command solicited NLM 

EXTRN 

TL 

_INT_WAIT:NEAR 

5 Wait for Operat ion Comp 1 ete 


Transporter Data Area lengths 


; ************************************************** •*«•■* •**•#•*•*■#■***■*•*****• •*•**•** 
; Allocated Data ! 

; ************************************************************-*****-#***** 
M 

PC_DftTfl SEGMENT PUBLIC ’DftTA’ 

? 

5 * ' "““*"** 

5 

9 
9 

$DtaNL 
$DtaIS 
$DtaLC 
SDtaRP 
*DtaGO 
$DtaND 
5 

u 

9 
9 

*CtIIS 
*Ct1RP 
$Ct1G0 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


TYPE NLM 
4 

*MaxTBD 

$MaxTBD 

£ 

0 


;Name Lookup Message 
;Initial Command Sequence 
;Remainder of long command 
;Reply to any command 
;Long command GO message 
;Return NAD message 


Transporter Control area lengths 


EQU TYPE RRRCV 
EQU TYPE RRSND 
EQU 0 


;Initial Command Sequence 
;A 11 replies 

;Long command GO message 


I 

« 

€ 

I 

€ 

i 

I 

i 

i 

f 

f 

v 

f 

r 

i 

i 

< 

< 

i 

< 

< 

€ 
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Transporter Status Table 





EYE 

<TSTH> 

0000 

54 53 54 48 

HI- 

DB 

"TSTH" 

0004 

00 

5 

TT 

TSTH 

<, SFalse, 

0005 

01 




0006 

08 




0007 

00 





OFFSET TTbgn) / (TYPE TSTE>>> 


0008 

0100 

010C 


EQU 


= 01 10 

0008 

01 

0009 

00 

000A 

80 

000B 

F0 

000C 

0100 

000E 

010C 

0010 

01 10 

0012 

0012 

0014 

0000 

0016 

0000 

0018 

0000 

001 A 

0000 


TTbgn 

tj 

STACCB 
STARR 
STADt1 


RevNLM TSTE 


THIS BYTE 


:Start non-local entries 


* I n i t T A 

STACCB + TYPE CCBLK 
STARR + TYPE RRKD 


31 n i t i a 1 transporter 
; addresses for CCB, 
; RR, and data 


<, , SSokRM, SSetup,STACCB, STARR,STADt1,SDtaNL,TL_RCVJMLM> 


= 0122 

STACCB 


STADt1 + SDtaNL ;Addresses for 

= 012E 

STARR 

— 

STACCB + TYPE CCBLK ; RevICS group 

= 0136 

STADt1 

= 

STARR + TYPE RRKD + SCtllS 

00 1 C 

01 

RevICS 

TSTE 

(, , SSokRC, SSetup, STACCB, STARR, STADt 1, SDtalS, 

001D 

00 




001E 

B0 




001F 

F0 




0020 

0122 




0022 

012E 




0024 

0136 




0026 

0004 




0020 

0000 E 




002A 

0000 




002C 

0000 




002E 

0000 




= 013A 

STACCB 

sr 

STADt1 + SDtalS ;Addresses for 

= 0146 

STARR 


STACCB + TYPE CCBLK ; RevGO group 

= 014A 

STADt1 


STARR + TYPE RRKD 

0030 

01 

u 

RevGO 

TSTE 

<, , SSokRL, SSetup, STACCB, STARR, STADt 1, SDtaLC, 



I 

« 

< 

« 

€ 

t 

f 

f 

I 

I 

1 

f 

f 

€ 

f 

€ 

< 

t 

« 
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0031 

00 

003S 

A0 

0033 

F0 

0034 

013A 

0036 

0146 

0038 

014 A 

003A 

0211 

003C 

0435 

003E 

0000 

0040 

0000 

0042 

0000 


035B 

0367 

036B 


0044 

01 

0045 

00 

0046 

80 

0047 

40 

0048 

035B 

004A 

0367 

004C 

036E« 

004E 

0012 

0050 

056F 

0052 

0000 

0054 

0000 

0056 

0000 


= 037D 
= 0389 
= 0390 


0058 

01 

0059 

00 

005A 

B0 

005B 

40 

005C 

037D 

005E 

0389 

0060 

0390 

0062 

0000 

0064 

0000 

0066 

0000 

0068 

0000 

006A 

0000 


= 0390 
= 039C 
= 03A3 

006C 01 
006D 00 


$TACCB = 
*TARR 
$TADt1 = 

TrrnNLM TSTE 


$TACCB = 
$TARR 
*TADt1 = 

TrrnNAD TSTE 


$TACCB = 
$TARR 
*TADtl = 

TrrnRPY TSTE 


$TADt1 + $DtaLC 
$TACCB + TYPE CCBLK 
$TARR + TYPE RRKD 


;Addresses for 
; TrrnNLM group 


<, , SSok.TM, *Send, $TACCB, $TARR, $TADt1,*DtaNL, TL__INT_NLM> 


$TADtl + *DtaNL 
$TACCB + TYPE CCBLK 
*TARR + TYPE RRKD + *Ct1RP 


; Addresses for 
; TrrnNAD group 


<,,*SokTD,*Send,*TACCB,$TARR,$TADt1,$DtaND,TL_INT_NAD> 


$TADt1 + *DtaND 
$TACCB + TYPE CCBLK 
$TARR + TYPE RRKD + *Ct1RP 


; Addresses for 
; TrrnRPY group 


<, , *Sok.TD, $Send, $TACCB, $TARR, $TADt 1, $DtaRP, TL__INT_RSLT> 


i 

€ 

i 

I 

f 

€ 

I 

f 

f 

€ 

€ 

C 

I 

1 


f 

I 

€ 

« 

€ 

« 

c 
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006E B0 
006F 40 

0070 0390 

0072 039C 

0074 03A3 

0076 0211 

0078 034D R 

007A 0000 

007C 0000 

007E 0000 


== 05B4 
= 05C0 
- 05C4 


STACCB 
STARR 
STADt1 


STADt1 + SDtaRP ;Addresses for 
STACCB + TYPE CCBLK 5 TrmGO group 
STARR + TYPE RRKD + SCtlGO 


0080 

0081 

0082 

0083 

0084 

0086 

0088 

008A 

008C 

008E 

0090 

0092 


01 

00 

B0 

40 

05B4 
05C0 
05C4 
0002 
04C4 R 
0000 
0000 
0000 


TrmGO TSTE 


<, , SSokTD, SSend, STACCB, STARR, STADt 1, SDtaGO, TL„INT_LCT> 


= 05C6 
= 05D2 
= 05D6 


STACCB 
STARR 
STADt1 


STADt1 + SDtaGO 
STACCB + TYPE CCBLK 
STARR + TYPE RRKD 


5 Addresses for 
; VarOP group 


0094 

0095 

0096 

0097 

0098 

009A 

009C 

009E 

00A0 

00A2 

00A4 

00A6 


01 

00 

00 

20 

05C6 
05D2 
05D6 
0000 
01 EE R 
0000 
0000 
0000 


VarOP 


TSTE 


<,,,$init T,STACCB,STARR,STADt1,,TL_INT_TIME> 


00A8 


TTend EQU 


THIS BYTE 


I End non-local entries 


00A8 


PC DATA ENDS 


s ***»******************•****•**************■*■**•*■**■***********•**■*•**■*•*■*•*•**•«••** 


« 
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5 Transporter Logical Device Routines I 

2 *********************************************************************** 


0000 


PC_CGDE SEGMENT PUBLIC ’CODE’ 

5 

- *********************************************************************** 
;Module names Transporter Interface Routines 
5 

5 Versions £-0 
5 

5 Last Updates 15 December 1983 

•ft 

5 Functions The Transporter Interface routines provide services that 


insert data into transporter memory, extract data from it, 
and initiate commands. There are eight routines: 

TL-SET—CTR sets the transporter location counter 
TL-BYT-OUT, TL~~WRD~~OUT, TL-DTA-OUT put one byte, one word, 
or a string of bytes into transporter memory 
TL-BYT-IN, TL—WRD-IN, TL—DTA-IN fetch one byte, one word, 
or a sring of bytes from transporter memory 
TL—DO—CMND causes a transporter command to be executed 


;Procedures See Program Logic Description, Section £.3 
5 

5 Called bys TLD service routines 
5 

;Routines called: None 
5 

5 Inputs See individual routine descriptions 
5 

; Outputs See individual routine descriptions 
5 

;Error proceduress None 

;Written bys R« B. Talmadge, Computer Technology Ltd 
5 

5 Updatess None 
5 

- *********************************************************************** 


0000 



TL_SET_CTR 

PROC NEfiR 

0000 

Bft 

0£4ft 

MOV 

DX,$WrCtrL 

0003 

EE 


OUT 

DX, ftL 

0004 

Bft 

0248 

MOV 

DX,SWrCtrH 

0007 

86 

E0 

XCHG 

i ftH, ftL 

0009 

EE 


OUT 

DX, ftL 

000ft 

03 


RET 


000B 



TL SET CTR 

ENDP 


sTL-SET-CTRs Sets transporter address counter to value in 
register AX- Registers AX, DX not preserved. 


5 Port for low byte 
5 which goes out first 


5 Port for high byte 
$ which goes 
; out next 



The IBM Personal Computer MACRO Assembler 01—14—84 


PAGE 


1-16 


000B 



000B 

9C 


000C 

FA 


000D 

8B 

C3 

000F 

E8 

0000 R 

0012 

BA 

024B 

0015 

8A 

Cl 

0017 

EE 


0018 

9D 


0019 
001A 

C3 



9 

5 

5 

5 

5 

5 

5 

5 

5 

5 

TL 


:s=s==s:ss:=s:TL—BYT—OUT s Outputs one byte to a specified location 

in trarisporter memory 

Input s BX—Transport er memory location 
CL-Byte to output 

Outputs None 

Registers PX, DX not preserved 
BYT OUT PROG NEAR 


STATUS 

PUSHF 

CLI 


5 Disable interrupts 

MOV 

AX, BX 

i;Set up transporter 

CALL 

TL__SET_CTR 

5 1ocation count er 

MOV 

DX,$WrRAM 

;Port for output 

MOV 

AL, CL 

5 and out 

OUT 

RESTORE 

POPF 

RET 

DX, AL 

; it goes 

5 Restore interrupt status 


TL BYT OUT ENDP 


S ==TL—WRD—OUTs Outputs one word to a specified location 

in transporter memory 

Input s BX=transporter memory location 
CX-Word to output 

Register PX, DX not preserved 

Reentry at TL-OUTa before any other call to 
a device routine will output another word from 
CX to transporter memory at next location 


001A 




TL. 

_WRD_ 

OUT PROC NEAR 








STATUS 


5 Disable interrupts 

001A 

9C 


+ 



PUSHF 



00 IB 

FA 


4* 



CLI 



00 1 C 

8B 

C3 




MOV 

AX, BX 

5 Set up transporter 

001E 

E8 

0000 R 




CALL 

TL_.SET_.CTR 

; 1ocation count er 

0021 

BA 

024B 




MOV 

DX,SWrRAM 

; Port for out put 

0024 

8A 

C5 


5 

TL. 

_OUTa 

: MOV 

AL, CH 

§ Out put high 

0026 

EE 





OUT 

DX, AL 

; order byte 

0027 

8A 

Cl 




MOV 

AL, CL 


0029 

EE 





OUT 

DX, AL. 

5 then low order 







RESTORE 


5 Restore interrupt status 

002A 

9D 


4* 



POPF 



002B 

C3 





RET 



002C 




TL. 

_WRD_. 

OUT ENDP 
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004“ 


0043 

0043 9C 


=TL_BYT_INs Inputs one byte from a specified location 
in transporter memory 

Input s BX=Transporter memory location 

Outputs AL=Byte returned 

Register DX not preserved 


00SC 



TL. 

BYT 

IN PROC NEOR 








STOTUS 


5 Disable interrupts 

002C 

9C 

4- 



PUSHF 



00£D 

FA 

4* 



CL I 



00 EE 

SB C3 




MOV OX,BX 


5 Set up transporter 

0030 

E8 0000 R 




COLL TL__SET_CTR 


5 1ocation count er 

0033 

BA 0E4B 




MOV DX,$RdR0MI 


5 Port to read from (it increments) 

0036 

EC 




IN OL,DX 


?Get the byte 






RESTORE 


;Restore interrupt status 

0037 

9D 

4* 



POPF 



0038 

C,^ 




RET 


; and exit 

0039 



TL_ 

5 

„BYT_ 

IN ENDP 






9 


=TL—WRD-INs Inputs 

one 

word from a specified location in 




9 


transpc 

rrter 

memory 




9 

5 


Same as TL~ 

BYT- 

IN except AX—Word returned 

0039 



9 

TL. 

,WRD__ 

IN PROC NEOR 








STOTUS 


§ Disable interrupts 

0039 

9C 

+ 



PUSHF 



0030 

FO 

+ 



CLI 



003B 

E8 002C R 




COLL TL BYT IN 


5 Get high order byte 

003E 

80 E0 




MOV OH,OL 


5 and set it high 

0040 

EC 




IN OL,DX 


5 Now low order 






RESTORE 


5 Restore interrupt status 

0041 

9D 

4* 



POPF 



0042 





RET 




TL WRD IN ENDP 


9 

. 

? “ 

n 

9 

a 

9 

* 

1 

5 

a 

9 

» 

9 

5 

9 

t» 

9 

9 

TL 


=TL-~DO~CMND s Initiates transporter command and waits for resul 
code to change indicating command complet ion. 

Inputs BX-Transporter adddress of result code 
CX—Transporter address of CCB 

Ret urns s AL-Resu11 code va1ue 
AH—0 


DO^CMND PROC NEAR 
STATUS 
PUSHF 


Registers CX, DX not preserved, 

5 Disab1e interrrupts 
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0044 

FA 



4* 

CL I 



0045 

8B 

C3 


*1 

MOV 

AX, BX 

5 Set counter to point to 

0047 

E8 

0000 

R 


CALL 

TL_SET_CTR 

5 result code 

004A 

B0 

FF 



MOV 

AL,$TrSU 

;Initialize resu1t 

004C 

BA 

0S4B 



MOV 

DX,$WrRAM 

; code value 

004F 

EE 




OUT 

DX, AL. 


0050 

dr. 

E4 



XOR 

AH, AH 

;High byte of command location 

005£ 

E8 

0076 

R 


CALL 

StrbC 

5 is always zero for this board 

0055 

8A 

E5 



MOV 

AH, CH 

5 Other bytes are 

0057 

E8 

0076 

R 


CALL 

StrbC 

$ t h e r i o u t p u t t o 

005A 

8A 

El 



MOV 

AH, CL 

5 start the operation 

005C 

E8 

0076 

R 


CALL 

StrbC 


005F 

8B 

C3 


? 

MOV 

AX, BX 

5 Now set counter back to 

0061 

E8 

0000 

R 


CALL 

TL SET_CTR 

5 point to result code 

0064 

BA 

®£49 



MOV 

DX, UiRdRAM 

5 and setup for read 

0067 


C0 



XOR 

AX, AX 


0069 

B9 

7FFF 



MOV 

CX, tfsMaxDly 

5 Don’t wait forever 

006C 

EC 



DoRes s 

IN 

AL., DX 

^get result (no ctr increment) 

006D 

3C 

FF 



CMP 

AL,$TrSU 

5 Keep testing unti1 it 

006F 

75 

0c! 



3NE 

DoRes1 

; changes from initial value 

0071 

El 

F9 



LOOPE 

DoRes 

5 or time runs out 

0073 

EC 



5 

DoRes1s 

IN 

AL, DX 

?Then read again to be sure 






RESTORE 


1 Rest ore int errupt st atus 

0074 

90 



+ 

POPF 



0075 

C3 




RET 


5 and exit 


Subroutine internal to TL__DO_CMND which outputs 
command byte when transporter is ready to receive 


5 


0®7B 

BA 

0£48 

StrbC: MOV 

DX,*RdStat 

5 Port to read r 

'eady status 

0079 

EC 


StrbCra IN 

AL, DX 

5 Get status byte and 

007A 

AS 

80 

TEST 

AL,$TRedy 

5 test flag until 

007C 

74 

FB 

JZ 

StrbCr 

r { transporter 

ready 

007E 

BA 

C4 

MOV 

AL, AH 

;Then output 


0080 

BA 

0£49 

MOV 

DX,*WrStbe 

5 the command 

byte 

0083 

EE 


OUT 

DX, AL 



0084 

C3 


RET 




0085 



5 

TL_D0_CMND 

ENDP 




9 

? 

5 

5 

? 

5 

5 

5 


====TL-DTA-OUT: Outputs data from memory to transporter board 

Input: DS:SI = memory location of first byte 

CX = Number of bytes 
BX = Transporter address for data 

Ret urns : None 


Registers AX, SI, CX, DX not preserved 
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0085 





TL_DTA_ 

OUT PROC NEAR 


0085 

E3 

10 




JCXZ DtaO 

5 Just exit if count is zero 







STATUS 

5 0 isah 1 e interrupts 

0087 

9C 



+ 


PUSHF 


0008 

FA 



4. 


CLI 


0089 

8 B 

C 3 



5 

MOV OX,BX 

5 Set u p t ransporter 

008B 

E 8 

0000 

R 



COLL TL SET CTR 

5 1 ocation count er 

008E 

BA 

024B 




MOV DX,$WrRAM 

5 Port for data 0 ut p ut 

0091 

FC 





CLD 

;Data addresses increment 

0092 

AC 




? 

Dt aOLJa s 

LODSB 

5 Get current byte 

0093 

EE 





OUT DX,AL 

5 St ore it and 130 

0094 

Eid 

FC 




LOOP DtaOUa 

5 back to get next 






5 

RESTORE 

5 Restore interrupt status 

0096 

90 



+ 


POPF 


0097 

C3 




Dt aO 2 

RET 

5 and exit when no more 

0098 





TL_DTA_ 

9 

OUT ENDP 







» 

—TL—DTA-INs Inputs data from transporter hoard to memory 






9 

Inputs ESsDI 

= Memory location of first byte 






*1 

CX = 

Number of bytes 






5 

BX = 

Transporter address of data 






9 

5 

Ret urns s None 







5 

9 

Registers OX, 

DI, CX, DX not preserved 

0098 





9 

TL_DTA_ 

IN PROC NEAR 


0098 

E3 

10 




JCXZ Dtal 

5 Just exit if count is zero 







STATUS 

5 Disable interrupts 

009ft 

9C 



4* 


PUSHF 


009B 

FA 



4* 


CLI 


009C 

8 B 

C3 




MOV AX,BX 

5 Set up transporter 

009E 

E 8 

0000 

R 



CALL TL_SET_CTR 

5 location counter 

00 ft 1 

BA 

024B 




MOV DX,$RdRAMI 

5 Port to read and increment trans 

00ft4 

FC 





CLD 

5 Memory addresses a 1 so incrernent 

0005 

EC 




DtalNas 

IN ftL,DX 

5 Get current byte 

0006 

AA 





STOSB 

;Stash int 0 memory 

00ft7 

EE 

FC 




LOOP DTalNa 

5 and go back for next 







RESTORE 

5 Rest ore interrupt st at us 

0009 

90 



4. 


POPF 


0000 

C3 




Dt al 5 

RET 

; and exit when no more 

00OB 





TL OTA 

IN ENDP 



n 

$ 

; *********************************************************************** 
fMod u 1e name s Set up To Race ive C TL—SET—RECV) 1 



i 

< 

< 

< 

< 

i 

« 

t 

i 

i 

f 

« 

« 

< 

< 

€ 

< 

€ 

« 

« 

< 

€ 
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5 Version: £« 0 


5 Last Updates 5 January 1984 


Sanctions The Setup To Receiver routine is called by any TLD routine 
to prepare to receive a command or ML message™ The call 
parameters are the offset of the TST entry and an ORB 
location if a response is solicited™ If there is an ORB 
its location is recorded in the TST entry? if there is no 
ORE-f, a maximum size retry count is recorded instead of the 
ORE* location. 

If transporter memory shows a previous setup has not been 
cancelied, no action is taken and an invalid indication is 
returned. The invalid indication is also returned if the 
eommand cannot be executed« 

The TL-SET-RTRY entry point is called by any routine to 
request a retry of command execution™ It is also used to 
retry a transmission. The TL—SET—TQPN entry does the 
actual work of executing the command, and is also use by 
TL—SET-SEND to carry out the message transmission 


Procedures Program Logic Description, Section £. 6 

Called by: TL-DQ—CRQ, TL—INIT—TLD, TL-RCV-ICS, 

TL-FETCH-LC, TL—RTN—RBLT, TL-SEND-NLM, 
LC-RECV-SRVR, TL-SET-SEND 


s Routines calied 


TL—DO—CMND 


Input s 


5 Out put s 


(SI) » Offset TST entry 
CAL) = $True if ORB present 
<DS)s<BX) = Location of the ORB 

(AL) = $Tru 0 if successful 

$False if not successful or invalid 
(AL) - Return code from transporter 


? Error proced uress None 

3 

^Written bys R.B« Talmadge, Computer Technology Ltd 
3 

;Updates: 1. Retry entry TL-SET-RTRY added £8 Dec 1983 

3 


***#**#***#*#**********#*********#****##**•*********#*#•&**************** 


00AB 




TL_SET_RECV 

PROC NEAR 





5 

TRACE 

S:TL—SET—RECV 

00AB 

80 

3E 000B E 00 

4 

CMP BYTE PTR EC-Tree,$True 

00B0 

75 

0 F 

•4 

JNE 

??0000 

00B2 

50 


+ 

PUSH 

AX 

00B3 

B0 

00 

4 * 

MOV 

AL, 0 

00B5 

56 


4 - 

PUSH 

SI 


I 

« 

I 

I 

« 

€ 

I 

f 

I 

f. 

I 

f 

I 

I 

I 

I 

« 

< 

€ 

i 

« 
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00B6 

BE 

00flS R 

4* 


MOV 

SI,OFFSET 770001 

00B9 

&:s 

0000 E 

4 . 


CALL 

EM_TRACE 

00BC 

5E 



4 


POP 

SI 

00BD 

58 



4 . 


POP 

AX 

00 BE 

EB 

01 

90 

4 


JMP NEAR 

[ PTR 770000 

00 C 1 




4 

PC_C0DE 

ENDS 


00A8 




4 

PC_DftTft 

SEGMENT 

PUBLIC ’DATA’ 

00A8 

00 



4 . 

? 70001 

LRB 

<,OFFSET 770003 - OFFSET ??000£> 

00A9 

00 



4- 




00AA 

53 

3ft 

54 4C £D 53 

4 . 

?? 000 £ 

DB 

"SjTL-SET-RECV" 

00B 7 




4 . 

PC_DftTft 

ENDS 


00 C I 




4 . 

PC_C0DE 

SEGMENT 

PUBLIC ’CODE’ 

00 C 1 




4 

??0000 

LABEL 

NEAR 

00C1 

8 A 

64 

01 


*? 

MOV 

AH, CSID.TT_ST ;Pick up current result 

00C4 

80 

FC 

FF 



CMP 

AH,$TrSU ;Go to exit if previous 

00C7 

74 

05 




JE 

SETxst ; setup not yet 

00 C 9 

80 

FC 

FE 



CMP 

AH,$TrSS ; cancelled and 

00CC 

75 

£0 




JNE 

TL__SET__TQPN ; no message received 

00CE 

B0 

01 



SETxst: 

MOV 

AL,$False ;Assume condition invalid 

00 D 0 

80 

3C 

00 



CMP 

[SI].PN,$True ;It’s OK, however, 

0003 

74 

0 £ 




JE 

SETxsu ; if no ORB in use 

00 D 5 

B 0 

00 




MOV 

AL,$True 

0007 





5 

SET xsu 

LABEL 

NEAR 






5 

TRACE 

X;TL—SET-RECV 

0007 

80 

3E 

000B E 00 

4 * 


CMP BYTE PTR EC.Tree,$True 

00 DC 

75 

0F 


4. 


JNE 

770004 

00 DE 

50 



4 


PUSH 

AX 

00 OF 

B 0 

00 


4 


MOV 

AL, 0 

00 E 1 

56 



4 


PUSH 

SI 

00E2 

BE 

00B7 R 

4 


MOV 

SI,OFFSET 770005 

00E5 

E 8 

0000 E 

4 


CALL 

em__trace 

00ES 

5E 



4. 


POP 

SI 

00E9 

58 



4. 


POP 

AX 

00EA 

EB 

01 

90 

4. 


JMP NEAR 

! PTR 770004 

00ED 




4 

PC CODE 

ENDS 


00B7 




4 

PC__DfiTft 

SEGMENT 

PUBLIC ’DATA’ 

00B7 

00 



4 

??0005 

LRB 

<,OFFSET 770007 - OFFSET 770006) 

00 B 8 

00 



4 




00B9 

58 

♦a A 

54 4C £D 53 

4 * 

??0006 

DB 

"X:TL—SET—RECV" 

00 C 6 




4. 

PCJDATA 

ENDS 


00ED 




4* 

PC CODE- 

SEGMENT 

PUBLIC ’CODE’ 

00 ED 




4 - 

770004 

LABEL 

NEAR 

00 ED 

C3 




5 

RET 

5 Ret urn to caller 


? 


This is both the reentry point for TL—SET—RECV when a setup is to be I 
c^rri&d out, and the transfer point which carries out the actual workl 
of the TL-SET-SEND routine,, * 


9 




€ 
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f 


I 

f 


i 

f 

f 

< 

I 

I 

i; 

« 

< 

f 

I 

f 

« 

i 

« 

« 

« 

€ 

t 


00EE 




TL„ 

w SET_TOPN 

LABEL NEAR 



08EE 

SB 

04 


7 

MOV 

CSI 3.PN,AL 


5 Capture ORB indicator-' 

00 F 0 

C 6 

44 

10 10 


MOV 

BYTE PTR CSI3 .TT_Orb, 

$MaxRty 

5 Assume no ORB 

00 F 4 

C 

00 



CMP 

AL,$True 

5 B k i p 

ORB setup 

00FS 

75 

06 



JNE 

TL__SET__RTRY 

s if 

not present 

00F8 

89 

5C 

10 


MOV 

CSI3.TT_Orb, BX 

; Save 

full address 

00FB 

SC 

5C 

1 c! 


MOV 

CSI3.TT_Orbs, DS 

$ i f 

it is present 


? 


5 This is both the reentry point for TL-SET-TOPN and the subroutine I 

; called to retry either a Set Receive or Set Send command. 1 


00FE 



TL_SET_ 

RTRY LABEL NEAR 

00FE 

53 



PUSH 

BX ;Save registers used 

00FF 

51 



PUSH 

CX ; by transporter routine 

0100 

52 



PUSH 

DX 

0101 

SB 

5C 06 

5 

MOV 

BX,CSI3.RR ;Fetch transporter addresses 

0104 

8 B 

4C 04 


MOV 

CX, CSI3.CCB 5 result record and CCB, 

0107 

C 6 

44 01 FF 


MOV 

CSI3.TT_ST,$TrSU ; record passage in TST 

010B 

E 8 

0043 R 


CALL 

TL_DO__CMND ;Execute the command 

010E 

8 A 

E0 


MOV 

AH,AL ;Save result code 

0110 

B0 

00 


MOV 

AL,$True ;Assume command executed 

01 12 

80 

FC FF 


CMP 

AH,*TrSU ;Reset return 

0115 

75 

02 


JNE 

SNxit 5 code if not 

0117 

B0 

01 


MOV 

AL,$False 

0119 

5A 


5 

SNxits 

POP 

DX ;Restore registers 

011A 

59 



POP 

CX ; and exit 

01 IB 

5B 



POP 

BX 




9 

TRACE 

E/E+S: TL.-SET-XXXX 

01 1C 

80 

3E 000B E 00 

4 

CMP BYTE PTR EC.Tree,$True 

0121 

75 

0F 

4 

JNE 

770008 

01 2 wp 

50 


4 

PUSH 

AX 

0124 

B0 

00 

4 

MOV 

AL, 0 

0126 

56 


4 

PUSH 

SI 

0127 

BE 

00C6 R 

4 

MOV 

SI,OFFSET 770009 

012A 

E 8 

0000 E 

4 

CALL 

EM _TRACE 

012D 

5E 


4 

POP 

SI 

012E 

58 


4 

POP 

AX 

012 F 

EB 

01 90 

4 

JMP NEAR 

1 PTR 770008 

0132 



4 PC^CODE 

ENDS 


00C6 



4 - PC_DATA 

SEGMENT 

PUBLIC ’DATA’ 

00C6 

00 


4 ??0009 

LRB 

<,OFFSET 77000B - OFFSET 77000A) 

00C7 

11 


4 



00C8 

45 

2F 45 2 B 53 3A + 77000A 

DB 

"E/E+S:TL-SET-XXXX" 


00D9 + PC_DATA ENDS 

0132 + PC__CODE SEGMENT PUBLIC ’CODE’ 

0132 + ?70008 LABEL NEAR 


< 

c 

f 

4 

I 

f 

r 

i 

I 

i 

« 

i 

f 

< 

* 

l 

€ 

< 

1 


f 


f 
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0 1 CL Cv.Hi 
0 1 


RET 

5 

TL_SET_RECV 

5 


ENDP 


; #*#***#*##********#*****#**•****#***#**#*#*#*#**#******#•***********•*#••**** 


5 Module names Send Message (TL-SET-SEND) 


5 Version s 


C'n 0 


?Last Update: 
5 

; Function: 

5 
? 

5 

5 
? 

9 

9 

5 

5 

5 

9 


December 1983 


The Send Message routine is called by any TLD routine to 
send a message of any kind to another machine. The call 
parameters are the offset of the TST entry and an ORB 
location if a wait for completion is required. If there 
is an ORB its location is recorded in the TST entry? if 
there is no ORB, a manimum size retry count is recorded 
instead of the ORB location. 

The actual work of the routine is done by the TL~SET~TGPN 
execution sequence of TL~~SET~SEND. 


Procedures Program Logic Description, Section £!. 6. 1 


l Called bys 


Tl-DGHCRQ, TL-1NIT-TLD, TL~~RCV~ ICS, 
TL-FETCH—LC, TL—RTN—RSLT, TL~SEND*~NLM, 
LC~~RECV~SRVR 


Routines calleds TL-~DQ~-CMND 


?Input 


? Out put s 


(SI) = Offset TST entry 
(PL) « $True if ORB present 
(DS)s(BX) = Location of the ORB 

(PL) = $True if successful 

$Fal58 if not successful 
(PH) = Return code from transporter 


;Error proced uress None 

? Written bys R.B. Talmadge, Computer Technology Ltd 
«« 

? Updatess None. 




0133 




TL_SET_SEND 

PROC NEAR 





9 

TRPCE 

S:TL—SET-SEND 

0133 

80 

3E 000B E 00 

4 * 

CMP BYTE PTR EC.Tree,$True 

0138 

75 

0F 

4 * 

JNE 

??000C 

013R 

50 


4 

PUSH 

flX 

013B 

B0 

00 

4 * 

MOV 

PL, 0 

013D 

56 


4 - 

PUSH 

SI 
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1 “*c4 


01.3E 

BE 

00D9 R 

4- 


MOV 

SI,OFFSET ??000D 

01.41 

E 8 

0000 E 

4* 


CftLL 

EM TRACE 

0144 

5E 


4* 


POP 

SI 

0145 

58 


4* 


POP 

OX 

0146, 

EB 

01 90 

4* 


JMP NEAR PTR ??000C 

0149 



4* 

PC_CODE 

ENDS 


00D9 



4* 

PCJDfiTft 

SEGMENT 

PUBLIC ’DftTft’ 

00D9 

00 


4* 

??000D 

LRB 

<,OFFSET ??000F 

00DA 

0D 


4- 




00DB 

53 

3ft 54 4C 2D 53 

4* 

??000E 

DB 

"S:TL—SET-SEND" 

00E8 



4- 

PC DftTft 

ENDS 


0149 



4* 

PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 

0149 



4 

??000C 

LABEL 

NEftR 

0149 

EB 

ft 3 


5 

JMP 

TL_SET_TOPN 

014B 




TL SET ! 

SEND ENDP 


;That was easy 


5 Module names Timeout Setup (TL-SET-TIME) 

it 

i 

5 Versions £.0 
** 

5 Last Updates 5 January 1984 
? 

^Functions The Timeout Setup routine is called by any TLD routine to 
$ set up a timing loop for receipt of a message. The call 

5 parameters are the offset of a TST entry 3.lrasa.dy setup to 

$ receive, the location of an ORB, and a network address. 

5 The expiration time is calculated from the value in field 

$ RB.OP of the ORB. An Echo command timing loop is started 

5 with interrupt service routine set to TL-INT-TIME, which 

is part of TL-SET-TIME. That routine ends the timing 
5 loop if a message is received, or if time-out occurs. 

5 

5 Procedures Program Logic Description, Section £• 6 .1 
S 

;Ca 11 ed by s TL-FETCH-LC 

S 

$ Routines called: TL-DO-CMND, TL-BYT-QUT, DM-ERR-LO0 
JInput: (SI) = Offset TST entry 

§ (AL) - NAD of machine expected to send message 

: (DS):(BX) - Location of the ORB 


i Out put s 


None 


;Error procedures: An error message is logged if a timing loop is 
5 already in progress when the routine is called 

§ 

;Written by: R. B. Talmadge, Computer Technology Ltd 


I Updates: None 


* ******************************************************************* •#•*•**•** 




1 

The 

IBM Personal 

Computer 

MACRO Assembler 01-14-84 PftGE 

1-25 

1 

€ 










f 

1 

014B 





5 

TL_SET_ 

TIME PR0C NEAR 


4 

i 






? 

TRACE 

S:TL-SET-TIME 


f 

1 . 

014B 

80 

3E 000B 

E 00 

4 


CMP BYTE PTR EC.Tree,$True 

1. 


0150 

75 

0F 


4 


JNE 

??0010 



| 

0152 

50 



4 


PUSH 

AX 


i 


0153 

B0 

00 


4 


MOV 

AL, 0 




0155 

56 



4 


PUSH 

SI 



i 

0156 

BE 

00E8 R 


4. 


MOV 

SI, OFFSET ??0011 


| 

1 . 

0159 

E 8 

0000 E 


4. 


CALL 

EM_TRACE 


1 


015C 

5E 



4. 


POP 

SI 



,# 

015D 

58 



4. 


POP 

AX 


< 

1 

015E 

EB 

01 90 


4. 


JMP NEAR PTR ??0010 


1 . 


0161 




4 

PC^CODE 

ENDS 




m 

00EQ 




4* 

PC^DATA 

SEGMENT 

PUBLIC ’DATA’ 


c 

4 

00ES 

00 



4 

??0011 

LRB 

<, OFFSET ??0013 

- OFFSET ??0012> 



00E9 

0 D 



4 






« 

00EA 

53 

3ft 54 40 

2D 53 

4. 

?? 001 E 

DB 

" S: TL-SET-T I ME 11 



00F7 




4. 

PCJDATA 

ENDS 





0161 




4 

PC^CODE 

SEGMENT 

PUBLIC ’CODE’ 



t 

0161 




4 

? ? 0 0 1 0 

LABEL 

NEAR 


f 


0161 

80 

30 00 




CMP 

CSI1.PN,$True 

;Just ex it if the 


« 

0164 

74 

01 




JE 

TMEst 

; message has already 

c 

1 

0166 

03 





RET 


; been received 

1 

« 

0167 

80 

3E 0094 

R 00 


TMEst s 

CMP 

VarOP. PN,$True 

;If a timing loop is 

f 

I. 

0160 

75 

0E 




JNE 

TMEok 

; already in progress 



016E 

06 

04 01 




MOV 

CSI3. PN,$Faise 

5 treat the request 


f 

0171 

06 

07 03 




MOV 

CBX3. CC, itOPtto 

; as if it timed out 

1 







5 

LOG 

*MND03 

;Then log an error 


« 

0174 

50 



4 


PUSH 

AX 


:f 


0175 

B0 

0B 


4 


MOV 

AL, $MND03 




0177 

E 8 

0000 E 


4* 


CALL 

DM ERR LOG 



I 

017ft 

58 



4 


POP 

AX 


f 

41 

017B 

03 





RET 


; and return to the caller 

'I.. 

4 






5 

If the 

loop can be started, store the current time in field 

I 

4, 






5 

TT. ORB 

of the VarOP TST 

entry, save ORB offset, turn on 








5 

timing 

flag, and start 0 

ff the first echo command 


f 

0170 

51 




5 

TMEok a 

PUSH 

OX 

^Save working registers 

4 


017D 

52 





PUSH 

DX 



c 

017E 

ftc! 

0096 R 




MOV 

VarOP. SK,AL 

$ Save NAD 

€ 







5 

DISABLE 


5 Mask off transporter 


1 

0181 

90 



4. 


PUSHF 



t 

Wt 

0182 

Fft 



4 


CL I 





0183 

50 



4* 


PUSH 

AX 



I 

0184 

E4 

cl 1 


4, 


IN 

AL, $P82opl 


€ 


0186 

00 

05 


4 


OR 

AL, $P82EML 




0188 

E 6 

o i 
t~. X 


4 


OUT 

*P82opl,AL 



€ 

I 

018ft 

58 



4 


POP 

AX 


€ 

f 
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01 SB 

9D 



~b 



POPF 










TIME 


; Get the current time 

0180 

B4 

£0 


4* 



MOV 

OH,£CH 


018E 

CD 

£ 1 


4* 



I NT 

£ 1 H 


0190 

06 

06 0094 R 

00 




MOV 

VarOP.PN, $True 

;Set timing loop flag 

0195 

89 

36 009E R 





MOV 

VarOP.Dsz, SI 

;Save TST entry offset 

0199 

BE 

0094 R 





MOV 

SI,OFFSET VarOP 

;Now point to VarOP TST 

0190 

89 

40 10 





MOV 

CSIH . TT__Orb, OX 

;Save the 

019F 

89 

54 1£ 





MOV 

CSI3.TTJDrbs,DX 

; current time 








ENOBLE 


; Restore transporter 

01O£ 

90 



4- 



PUSHF 



01 

Fft 



+ 



CL I 



0104 

50 



4* 



PUSH 

OX 


0105 

E4 

£ 1 


4* 



IN 

OL,*P 8 £opl 


0107 

£4 

FO 


4* 



OND 

OL, $PS£enb 


0109 

E 6 

£1 


4- 



OUT 

*P 8 Sopl, OL 


01 OB 

58 



4- 



POP 

OX 


0100 

9D 



4- 



POPF 



01OD 

er •? 

vJ W 




5 


PUSH 

BX 


01OE 

80 

40 0£ 





MOV 

CL, csn. SK 

;Fetch NOD 

01B1 

SB 

50 04 





MOV 

BX,CSI3.COB 

; Calculate transporter 

01B4 

8 D 

5F 04 





LEO 

BX,CBX3.Sock 

; address and send 

01B7 

E 8 

000B R 





COLL 

TL__BYT_OUT 

; NOD to memory 

01 BO 

B1 

0 £ 



5 


MOV 

CL,*Echo 

5 Now make sure there 

01 BC 

88 

40 03 





MOV 

CSI3.TT OP, CL 

5 is an Echo command 

01BF 

SB 

50 04 





MOV 

BX, csn. COB 

; in the TST entry 

01 CS 

8 D 

IF 





LEO 

BX, CBX3.CC_Cmnd 

5 and in the CCB 

0104 

E 8 

000B R 





COLL 

TL__BYT__OUT 


0107 

06 

44 01 FF 



5 


MOV 

csn. TT_ST, ^TrSU 

;Set TST status 

01CB 

8 B 

40 04 





MOV 

CX, CSI3.COB 

;Go do the first Echo 

01CE 

8 B 

50 06 





MOV 

BX, csn. RR 


01D1 

E 8 

0043 R 





COLL 

TL_DQ_CMND 


01D4 

5B 






POP 

BX 

; Rest ore register's 

01D5 

50 






POP 

DX 


01 D 6 

59 






POP 

CX 







5 


TROCE 

E:TL-SET-TIME 


01D7 

80 

3E 000B E 

00 

4- 



CMP BYTE PTR EC.Tree,fTrue 

01 DC 

75 

0F 


4* 



JNE 

??0014 


01DE 

50 



4 



PUSH 

OX 


01DF 

B0 

00 


4- 



MOV 

OL, 0 


01E1 

56 



4- 



PUSH 

SI 


01 E 2 

BE 

00F7 R 


4- 



MOV 

SI,OFFSET ??0015 


01E5 

E 8 

0000 E 


4* 



COLL 

EM_TROCE 


01EQ 

5E 



4- 



POP 

SI 


01E9 

58 



4- 



POP 

OX 


01EO 

EB 

01 90 


4* 



JMP NEOR PTR ??0014 


01ED 




4. 

PC 

CODE 

ENDS 



00F7 




4. 

PC. 

_DOTO 

SEGMENT 

PUBLIC ’DOTO’ 


00F7 

00 



4- 

??0015 

LRB 

<, OFFSET ??0017 

- OFFSET ??0016> 

00F8 

0D 



4. 






00F9 

45 

30 54 40 

£D 53 

4- 

??0016 

DB 

"EsTL-SET-TIME" 
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@106 
01 ED 
01ED 

01 ED 


@1 EE 


01 EE 
01F3 
01F5 
01FS 
01F8 
01F9 
01FC 
01FF 
0£00 
0201 
0£04 
0106 
0106 
0107 
0108 
0115 
0£@4 
0£04 

0£04 

0£07 

0£@9 

0£0A 

0£0E 

0£10 

0211 
0214 
0217 
0219 


02 IB 
@2 IE 
0221 

0224 


+ PC„DATA ENDS 

+ PC__CODE SEGMENT PUBLIC ’CODE’ 
+ ??0014 LABEL NEAR 


C3 RET ; Ret urn t o ca 11 er 

M 

9 

5 The following routine is the TL—INT-TIME interrupt service routine, 

5 which is an integral part of the TL—SET—'TIME routine. This routine 

5 checks if there is a timing loop, and if so checks for time expired, 

5 If it has expired, the ORB completion flag is set accordingly, and 

5 the receive is cancelled. If time remains, another Echo is issued, 

« 

TL INT TIME LABEL NEAR 







TRACE 

SsTL-INT-TIME 


80 

3E 

000B E 00 

4 


CMP BYTE PTR EC.Tree,$True 

75 

0F 


4 


JNE 

??0018 


50 



4 


PUSH 

AX 


B0 

00 


4 


MOV 

AL, 0 


56 



4 


PUSH 

SI 


BE 

0106 R 

4 


MOV 

SI,OFFSET ??@019 

E 8 

0000 E 

4 


CALL 

EM__TRACE 


5E 



4 


POP 

SI 


58 



4 


POP 

AX 


EB 

01 

90 

4 


JMP NEAR PTR ??@018 





4 

PC„CODE 

ENDS 






4 

PC_DATA 

SEGMENT 

PUBLIC ’DATA’ 


00 



4 

??0019 

LRB 

<,OFFSET ??001B - OFFSET ??0@1A> 

0D 



4 





53 

3A 

54 4C 2D 49 

4 

??001A 

DB 

"S:TL.-1 NT-TIME 

Si 




4 . 

PC_DATA 

ENDS 






4 

PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 





4 

??0018 

LABEL 

NEAR 


80 

3C 

00 


5 

CMP 

£513.PN,$True 

5 If flag is true, 

74 

01 




JE 

TIMlp 

5 go process timing loop 

C3 





RET 


5 Ex it if no timing loop 

80 

7C 

03 02 


TIMlp: 

CMP 

CSI3.TT_OP,$£cho jContinue if last 

74 

01 




JE 

TIMlpp 

; command was Echo 

C3 





RET 


?Ex it if not 

SB 

7C 

0A 


TIM1pp s 

MOV 

DI,CSI3.Dsz 

l Fetch Receive TST entry offset 

8 B 

5D 

10 



MOV 

BX, CDI3. TTJDrb 

; Fetch location ORB 

3C 

C0 




CMP 

AL,$TrEA 

5 Echo not acknowledged 

74 

2 D 



» 

JE 

TIMlp© 

5 is the same as timeout 





9 

9 

If timeout occurs, the 

timing loop is ended, an End Recei 





9 

issued for the socket, 

and the ORB completion code is set 

C 6 

04 

01 


9 

TIMout 5 

MOV 

CSI3.PN,$False 

5 Turn off timing 

C 6 

05 

01 


TIMouxs 

MOV 

CDI3.PN, $FaIse 

“Turn off reception 

C 6 

07 

03 



MOV 

CBX3.CC,$OPtto 

5 Bet timeout into ORB 

8A 

4D 

@4 


9 

MOV 

CL,CDI3.Sock 

3 Fetch receive socket number 


is 
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0££7 

8 B 

7C 04 



MOV 

DI, CSI 3. CCB 

;Calculate transporter 

0££A 

8 D 

5D 04 



LEA 

BX, CD13.Sock 

; address and send 

0 C’Ct 1 .) 

E 8 

000B R 



CALL 

TL_BYT__OUT 

; socket to CCB 

0S30 

B1 

10 


5 

MOV 

CL,$EndRcv 

;Now insert the End 

0£3£ 

88 

4C 03 



MOV 

CSI3.TT OP,CL 

; Receive in the TST 

0S35 

8 D 

ID 



LEA 

BX, CDI3.CC_Cmnd 

; and into the CCB 

0£37 

E 8 

000B R 



CALL 

TL_BYT_OUT 






9 

9 

Reent er 

here to do either the End Receive or Echo command 





w 

9 

arid then return to the 

interrupt driver 

0S3A 

C6 

44 01 FF 


TIMxit 2 

MOV 

CSI3.TT_ST,*TrSU ; Set TST status 

0£3E 

8B 

4C 04 



MOV 

CX, CSI3.CCB 

5 Go do the command 

0£41 

8 B 

5C 06 



MOV 

BX, CSI3.RR 


0£44 

E 8 

0043 R 



CALL 

TL DO_CMND 


0£47 

C3 




RET 


§ Ret urn 





? 

5 

If the 

Echo was acknowledged, test for timeout 

0£48 




TIMlp0 2 

DISABLE 


;Mask off transporter 

0£48 

9C 


Hh 


PUSHF 



0£49 

FA 


4. 


CL I 



0£4A 

50 


4* 


PUSH 

AX 


0£4B 

E4 

£1 

4. 


IIM 

AL,*P 8 £opl 


0£4D 

0C 

05 

4* 


OR 

AL,*P 8 £EML 


0£4F 

E 6 

£ 1 

4* 


OUT 

$P 8 £opl, AL 


0£51 

58 


4. 


POP 

AX 


0£5£ 

9D 


4. 


POPF 








TIME 


;Get current time 

0£53 

B4 

£C 

4. 


MOV 

AH,£CH 


0£55 

CD 

£1 

4. 


I NT 

£ 1 H 


0£57 

SB 

44 10 



MOV 

AX, CSI3.TT Orb 

;If hours value of previous 

0£5A 

3A 

E5 



CMP 

AH, CH 

; not equal to current 

0£5C 

74 

03 



JE 

TIMlpl 

; increment current minutes 

0£5E 

80 

Cl 3C 



ADD 

CL, 60 

; field by 1 hour 

0£61 

3£ 

E4 


TIMlpl 2 

XOR 

AH, AH 

;Isolate minutes fields 

0£63 

3£ 

ED 



XOR 

CH, CH 


0£65 

c'-B 

C 8 



SUB 

CX, AX 

;CL has minutes difference 

0£67 

8 B 

44 1£ 


9 

MOV 

AX, CSI3 . TT_Qrbs 

;Isolate seconds value 

0£6A 

06 

C4 



XCHG 

AL, AH 

; of previous time 

0£6C 

3£ 

E4 



XOR 

AH, AH 


0£6E 

as 

D 6 



XCHG 

DL, DH 

;Isolate seconds value 

0£70 

3£ 

F 6 



XOR 

DH, DH 

; of current time 

0£7£ 

£B 

D0 



SUB 

DX, AX 

;Seconds difference in DX 

0£74 

B0 

3C 


9 

MOV 

AL, 60 

; Cornput e total 

0£76 

F 6 

El 



MUL 

CL 

; difference in 

0£78 

03 

D0 



ADD 

DX, AX 

; seconds 

0£7A 


E4 


0 

XOR 

AH, AH 







ENABLE 


5 Restore transporter 

0£7C 

9C 


4, 


PUSHF 



0£7D 

FA 


4* 


CL I 
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027E 

027F 

0281 

0283 

0285 

0206 

0287 

028A 

028C 

028E 

0290 


0290 


0290 

0295 

0297 

0298 

029A 

029B 


50 

4 

PUSH 

AX 


E4 21 

4 

IN 

AL,$P 02 op 1 


24 FA 

4 

AND 

AL,$P82enb 


E 6 21 

4 

OUT 

$P82opl,AL 


58 

4 

POP 

AX 


9D 

4 

POPF 



8 A 47 01 


MOV 

AL,CBX3.OP 

5 Compare difference 

3B D0 


CMP 

DX, AX 

5 with period requested 

7D 8 D 


JGE 

TIMout 

5 Timeout if not less 

EB AA 

9 

JMP 

TIMxit 

;Redo Echo if less 


tt 

TL^SET^TIME ENDP 
5 

; *********************************************************************** 
;Module names Return Command Result (TL-RTN-RSLT) 1 

5 1 

;Versions £-® I 

3 i 

5 Last Updates 4 January 1983 i 

5 Functions The Return Command Result routine is called by the ! 

; Command Interpreter to return the result of a command I 

; to the requesting machine,, TL-RTN-RSLT returns the data i 

l from the location specified by the ORB, and also sends I 

5 the current value of the disk status in field RQ„D 8 C 1 

5 I 

;Procedures Program Logic Description, Section 2* 6 «£ I 

5 1 

5 Called Bys CI-MPIN l 

5 I 

{Routines called: TL-SET-SEND, TL-WRD-OUT, TL--BYT-OUT I 

. TL-DTA-OUT, LC—RTN-RSLT ! 

9 1 

; Inputs DBs(SI) « Location of the ORB I 

? l 

;Out puts Completion code returned in ORB ! 

5 ^ 

^Error procedures: None I 

9 1 

;Written bys R. B« Talmadge, Computer Technology Ltd i 

n I 

9 J 

5 Updatess None I 

5 I 

- *********************************************************************** 


it 

9 

TL_.RTN_.RSLT PROC NEAR 
5 


80 

3E 000B E 00 

4 

TRACE S:TL—RTN-RSLT 

CMP BYTE PTR EC.Tree,$True 

75 

0F 

4 

JNE 

? ? 001 C 

50 


4 

PUSH 

AX 

B0 

00 

4 

MOV 

AL, 0 

56 


4 

PUSH 

SI 

BE 

0115 R 

4 

MOV 

SI, OFFSET ??001D 
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029E 

E8 

0000 E 

4 

CALL 

EM_TRACE 

02 A1 

5E 



4 

POP 

SI 

02A2 

50 



4 

POP 

AX 

02A3 

EB 

01 

90 

4 

JMP NEAR PTR ??001C 

02A6 




+ PC^CODE 

ENDS 


0115 




4 . pc DP TP 

SEGMENT 

PUBLIC ’DATA’ 

0115 

00 



4- ??001D 

LRB 

<,OFFSET ??001F - OFFSET ??001E> 

0116 

0D 



4 



0117 

53 

3A 

54 4C 2D 52 

4 ??001E 

DB 

"S:TL-RTN-RSLT" 

0124 




4 PC^DPTP 

ENDS 


02A6 




4 PC^CODE 

SEGMENT 

PUBLIC ’CODE’ 

02A6 




4 ??001C 

LABEL 

NEAR 

02A6 

C6 

04 

FF 

5 

MOV 

CSI3.CC,$OPinp ;Denote ’operation in progress’ 

02 A9 

C6 

44 

01 10 


MOV 

CSI 3■OP,$MaxRty ;Operation retry count 

02AD 

57 




PUSH 

DI ;Save register 

02AE 

8 B 

3E 

0004 E 


MOV 

DI,RQ.Top ; and find top item in CRQ 





5 

5 

If the 

top item is not queued or is not the current 






command 

, exit with an ’invalid ORB’ indication 

02B2 

SA 

05 


5 

MOV 

AL, CDI 3. Use ;Fetch Usage field and test flag bit 

02B4 

24 

C0 



AND 

AL,$RQUseR+$RQUseE 

02B6 

3C 

C0 



CMP 

AL, $RQUseR+$RQUseE 

02B0 

74 

05 



JE 

RSLok ;Go process if conditions ok 

02BA 

5F 




POP 

DI ;If not, restore register’ 

02BB 

C6 

04 

02 


MOV 

CSI3 . CC,$OPtrb ; indicate termination, 

02BE 

C3 




RET 

; and exit 





5 

5 

If the 

CRQ item is OK, test for a local or immediate command 





5 

and pass the baton to the appropriate routine if either 

02BF 

F6 

05 

20 

$ 

RBLoks 

TEST 

CDIJ.Use,$RQUseL 

02C2 

74 

03 



JZ 

RSLnlc ; If local, transfer to 

02L4 

E9 

0000 E 


JMP 

LC_RTN_RSLT ; Local Command Send routine 

02C7 

F6 

05 

10 

RSLnlc s 

TEST 

CDI3 - Use,$RQUseI 

02CA 

74 

05 



JZ 

RSLdo 

02CC 

5F 




POP 

DI ;If internal, set 

02CD 

C6 

04 

00 


MOV 

CSI3.CC,$OPcne ; operation complete, no 

02D0 

C3 




RET 

5 error, and exit 





5 

5 

If a the command is from another machine, set up the CCB 





u 

9 

and user' control area for the message, move the data from 





5 

memory 

to the transporter, and execute the send operation 

02 D1 

53 



5 

RSLdo s 

PUSH 

BX ;Save Working Registers 

02D2 

51 




PUSH 

CX 

02D3 

52 




PUSH 

DX 

02D4 

SB 

4D 

02 


MOV 

CX,CDI3.Len ;Reply length from CRQ 

02 D7 

3B 

4C 

02 


CMP 

CX,CSI3.Sze ;Compare with length in 

02DA 

7E 

03 



JLE 

RSLdo1 ; ORB and take the 

02DC 

SB 

4C 

02 


MOV 

CX,CSI3.Sze ; smaller of the values 

02DF 

09 

4C 

02 

$SLdo1« 

MOV 

CSI3.Sze,CX ;Save data length 
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0 2 E 2 

41 




INC 

CX 

5 Add . 1 . for disk status 

02E3 

SB 

IE 0072 

R 


MOV 

BX,TrmRPY.RR 

;Compute transporter 

0SE7 

8 w’ 

C3 04 



ADD 

BX,TYPE RRKD 

5 address control area 

02EA 

ES 

001A R 



CALL 

TL_WRD_OUT 

5 Insert reply length 

0EED 

8 A 

0E 0001 

E 

9 

MOV 

CL, RQ.Dsc 

;Fetch disk status 

02 F 1 

8 D 

5F 02 



LEA 

BX,CBX3.Dstat 

5 Transporter address status 

02F4 

E 8 

000B R 



CALL 

TL_BYT_OUT 

5 Insert disk st at us 





5 



^ -- 

02F7 

8 B 

4C 02 



HOV 


_— j-Fet ch . ~chat a— hei-vgt-h-^arid- 

02FA 

8 B 

IE 0074 

R 


MOV 

BX, TrmRPY.Dt1 

9 ^fet transporter address data 

02FE 

56 




PUSH 

SI 


02FF 

8 B 

74 04 



MOV 

SI, CSI3.RBJData 5 Memory address of data 

0302 

ES 

0085 R 



CALL 

TL_DTA_OUT 

5 Insert data into transporter 

0305 

5E 




POP 

SI 


0306 

8 A 

4D 01 


5 

MOV 

CL,CDI3 .NAD 

;Fetch network address 

0309 

SB 

IE 0070 

R 


MOV 

BX,TrmRPY.CCB 

5 Compute transporter 1ocation 

030D 

8 D 

5F 0B 



LEA 

BX,CBX3.Dhost 

; to place the address 

0310 

E 8 

000B R 



CALL 

TL_BYT_OUT 

5 Put into CCB 

0313 

8 B 

DE 


5 

MOV 

BX, SI 

5 ORB offset to BX for TL-SET-SEND 

0315 

B 8 

0000 



MOV 

AX,$True 

^Indicate there is an ORB 

0318 

BE 

006C R 



MOV 

SI,OFFSET TrmRPY ;Feteh TST entry offset 

031B 

E 8 

0133 R 



CALL 

TL_SET_SEND 

5 and go do transmission 





9 

5 

Now rest ore regist ers 

and wait around until the completion 





? 

in the 

ORB changes, then exit. The flag will be changed by 





5 

TL-INT- 

RSLT routine (see below), which is the interrupt ser 





9 

rout irie 

for socket B0 

send 9 TST entry TrmRPY. 

03 IE 

8 B 

F3 


5 

MOV 

SI, BX 

? Rest ore all re gist ers 

0320 

5A 




POP 

DX 


0321 

59 




POP 

CX 


0322 

5B 




POP 

BX 


0323 

5F 




POP 

DI 


0324 

E 8 

0000 E 



CALL 

TL_INT_WAIT 

5 Ca 11 the wait routine 

0327 

80 

3C 07 


9 

CMP 

CSI3.CC, *OPtcl 

$Exit unless incorrect 

032A 

75 

0A 



JIME 

RSLdx 

; contro 1 1 eng t h failure 

0 d (-/ 

F 6 

06 0001 

E 80 


TEST 

RQ.Dsc,$RQdse 

;If so, and if the disk 

0331 

74 

03 



JZ 

RSLdx 

^ status shows error, 

0333 

E 8 

0393 R 



CALL 

TL_FETCH_LC 

j; send result via Fetch LC 

0336 




RSLdx 

LABEL 

NEAR 






9 

TRACE 

E:TL-RTN-RSLT 


0336 

80 

3E 000B 

E 00 

*+. 

CMP BYTE PTR EC.Tree,$True 

033B 

75 

0F 



JNE 

??0020 


033D 

50 



4- 

PUSH 

AX 


033E 

B0 

00 


4. 

MOV 

AL, 0 


0340 

56 



.4 

PUSH 

SI 


0341 

BE 

0124 R 


4, 

MOV 

SI,OFFSET ?70021 

0344 

E8 

0000 E 


4* 

CALL 

EM_TRACE 


0347 

5E 



4. 

POP 

SI 



t 

I 

t 


a, 

\ LgA- 
<. M.0\/ 

1 Chno 


B’Xy tfy, 
tfy, CM. D*+Jt 
Cx ; Csxj. C-*£- 

Tt _ D£j).JO OT 


tt 0 ^ 


dt-f*. /4^*( 


«Tfl/ 

f 


■r 

t 

€ 

« 

t 

f 

<; 

C 

f 

« 

€ 

« 

# 


I 

f 

4 

i 

t 

€ 

I 

i 

f. 

i 

« 

i 

t 

i 
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i 

< 

t 

i 

i 

f 


0348 

0349 
034C 
01 £4 
01 £4 
01 £5 
01 £6 
0133 
034C 
034C 

034C 


58 

EB 01 


90 


00 

0D 

45 


3Pi 54 4C £D 5£ 


+ 

+ 

+ 

+ 

+ 


PGP AX 

JMP NEAR PTR ??00£0 
PC_CODE ENDS 

PC_DATA SEGMENT PUBLIC ’DATA’ 
??00£1 LRB <,OFFSET ??00£3 

??00££ DB "E s TL--RTN--RSLT" 

PC_DATA ENDS 

PC_CODE SEGMENT PUBLIC ’CODE’ 

??00£0 LABEL NEAR 

« 

RET 


OFFSET ??00££> 


then exit 


; The following routine is the TL--INT-RSLT interrupt service routine, 






; which 

is an 

integral part of 

the TL-RTN- RSLT rout i 

034D 




? 

TL_INT_ 

RSLT 

LABEL NEAR 






5 

TRACE 

S:TL-INT~RSLT 


034D 

80 

3E 000B E 00 

4- 


CMP BYTE PTR EC.Tree,$True 

035£ 

75 

0F 

4. 


JNE 

??00£4 


0354 

50 


4. 


PUSH 

AX 


0355 

B0 

00 

4- 


MOV 

AL, 0 


0357 

56 


4- 


PUSH 

SI 


0358 

BE 

0133 R 

4. 


MOV 

SI, OFFSET ??00£5 

035B 

E 8 

0000 E 

4. 


CALL 

EM_TRACE 


035E 

5E 


4* 


POP 

SI 


035F 

58 


4. 


POP 

AX 


0360 

EB 

01 90 

4* 


JMP NEAR PTR ??00£4 


0363 



4* 

PG_CODE 

ENDS 



0133 



4* 

PC^DPTP 

SEGMENT PUBLIC ’DATA’ 


0133 

00 


4* 

??00£‘5 

LRB 

<, OFFSET ??00£7 

- OFFSET ??00£6> 

0134 

0D 


4. 





0135 

53 

3A 54 4C £D 49 

4- 

?? 00 ££ 

DB 

"S:TL—INT—RSLT" 


014£ 



4. 

PC_DfiTfi 

ENDS 



0363 



4* 

PC CODE 

SEGMENT PUBLIC ’CODE’ 


0363 



4* 

??00£'4 

LABEL 

NEAR 


0363 

80 

3C 00 


5 

CMP 

CSI3.PN,$True 

5 There should be an 1 

0366 

74 

08 



JE 

RSLokk 







LOG 

$MND06 

; Log an error and 

0368 

50 


4* 


PUSH 

AX 


0369 

B0 

13 

4* 


MOV 

AL,$MND06 


036B 

E 8 

0000 E 

4- 


CALL 

DM_ERR__L08 


036E 

58 


4* 


POP 

AX 


036F 

C3 




RET 


5 exit if no ORB 

0370 

8 B 

© 

T-t 

a 

in 


5 

RSLokk » 

MOV 

BX,CSI3.TT_Orb 

5 Fetch ORB location 

0373 

AS 

80 



TEST 

AL,*TrNG 


0375 

75 

04 



JNZ 

RSLng 

5 Set completion code 

0377 

C 6 

07 00 



MOV 

CBX3-CC, $OPcne 

5 exit if successfu 

037A 

C3 




RET 


^ completion 


I 

i 

4 

4 

4 

4 

4 

4 

I 

I 

I 

I 

I 

I 

4 

€ 

€ 

4 

€ 

€ 

€ 

c 


9 
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037B 

037D 

037F 

0382 


3C 83 
75 04 
C 6 07 07 
C3 


RSLng: CMP 

JNE 
MOV 
RET 


AL,*TrCL 


; If receive socket 
; has different control 


RSLng 1 ; has different contro 

CBX1. CC, itOPtcl ; length, terminate 

; with that indication 


0v^8wf 

0386 

0388 

038B 

038C 

038F 

0392 


FE 4F 01 
75 04 
C 6 07 05 
C3 

BE 006C R 
E 8 00FE R 
C3 


RSLng1: DEC 
JNZ 
MOV 
RET 

« 

9 

RSLrtys MOV 
CALL 
RET 


CBXU.OP 5 Decrement the retry count 

RSLrty $ and retry transmission if not zero 

CBX3 « CC, $OPtng 5 Indicate transporter didn’t 

5 do its thing and exit 

SI,OFFSET TrmRPY 5 Fetch TST entry offset 
TL_SET_RTRY ; and go do transmission 

5 Ret urn to driver 


0393 


TL RTN RSLT ENDP 


5 Module names Fetch Long Command (TL-FETCH-LC) i 
9 l 
5 Versions £. 0 I 
9 l 
5 Last Updates 4 January 1983 I 
9 1 
^Functions The Fetch Long Command routine is called by the Command I 
; Interpreter to fetch the remainder of a long command N I 
5 TL—FETCH—LC carries out the Disk Server protocol procedure 1 
5 and returns the data to the location specified by the i 
5 input ORB. I 

9 1 

§Procedures Program Logic Description, Section 2. 6 .1 I 
5 I 
5 Called Bys CI-MAIN I 
5 1 
5 Routines called s TL—SET-SEND, TL-SET—RECV, TL-SET-TIME, 1 
5 TL—BYT-OUT, TL~~WRD-OUT, TL-BYT-IN, I 
; TL-WRD-IN, LC—FETCH—LC, TL—FETCH—IC I 

9 i 

5 Input s (DS)s(SI) ss Location of the ORB I 
9 1 
;Out put s Completion code returned in ORB I 
9 J 
5 Error proced tires s None 1 
9 1 

-Written bys R.B, Talmadge, Computer Technology Ltd I 
9 I 
5 Updatess None } 


0393 




TL. 

^FETCH^LC PROC NEAR 





9 

T RACE S:TL-FETCH-LC 

0393 

80 

3E 000B E 

l 00 

4 . 

CMP BYTE PTR EC.Tree,$True 

0398 

75 

0F 


4* 

JNE ??0028 

039A 

50 



4. 

PUSH AX 


< 
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039B 

B0 

00 


4* 

MOV 

AL, 0 


039D 

56 



4* 

PUSH 

SI 


039E 

BE 

014£ R 

4* 

MOV 

SI,OFFSET ??00£9 


03 A1 

E 8 

0000 E 

4* 

CALL 

EM_TRACE 


03A4 

cr pr 



4- 

POP 

SI 


03A5 

58 



4* 

POP 

AX 


03A6 

EB 

01 

90 

4- 

JMP NEAR PTR ??00£8 


03A9 




4- PCJ3QDE 

ENDS 



014c! 




+ PC DPTP 

SEGMENT 

PUBLIC ’DATA’ 


014£ 

00 



4- ? ?0029 

LRB 

<, OFFSET ??00£B 

- OFFSET ??002fi> 

0143 

0D 



4* 




0144 

53 

3A 

54 4C £D 46 

4- ??00£P 

DB 

"S:TL-FETCH-LC" 


0151 




4- PC_DPTP 

ENDS 



03A9 




+ PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 


03A9 




4- ??00£B 

LABEL 

NEAR 


03A9 

CS 

04 

FF 

5 

MOV 

ESI 3 .CC,$OPinp 

5 Denote ’operation in progress’ 

03AC 

C 6 

44 

01 10 


MOV 

CSI3.0P,SMaxRty 

; 0 perat ion retry count 

83B0 

57 




PUSH 

DI 

5 Save register 

03B1 

SB 

3E 

0004 E 


MOV 

DI, RQ. Top 

5 and find top item in CRQ 





9 

9 

I f the 

top item is not queued or is not the current 





9 

command 

, exit with an ’invalid ORB’ indication 

03B5 

8 A 

05 


9 

MOV 

AL, EDI 3 .Use 

;Fetch Usage field and test flag bit 

03B7 

£4 

C0 



AND 

AL, $RQUseR+$RQUseE 

03B9 

3C 

C0 



CMP 

AL, $RQUseR+$RQUseE 

03BB 

74 

05 



JE 

FCHok 

;Go process if condi t ions ok 

03BD 

5F 




POP 

DI 

31 f not, rest ore re gist er’ 

03BE 

C 6 

04 

0 C.' 


MOV 

ESI 3 .CC,$QPtrb 

; i nd i cat e t errn i nat ion. 

03C1 

C3 




RET 


5 and exit 





5 

5 

If the 

CRQ item is OK, test for a local or immediate command 





5 

and pas 

s the baton to the appropriate routine if either 

03CS 

F 6 

05 

£0 

9 

FCHoks 

TEST 

EDI3 . Use,$RQUseL 


03C5 

74 

04 



JZ 

FCHnlc 


03C7 

5F 




POP 

DI 

5 If local, transfer to 

03C8 

E9 

0000 E 


JMP 

LC_FETCH_LC 

; Local Command Fetch routine 

03CB 

F 6 

05 

10 

FCHnlc: 

TEST 

CDI3.Use,$RQUseI 


03CE 

74 

04 



JZ 

FCHdo 


03D0 

5F 




POP 

DI 

5 If internal, transfer to 

03D1 

E9 

0000 E 


JMP 

TL_FETCH__ IC 

; Internal Command Fetch routine 





9 

9 

If a the command is from 

another machine, prepare the GO 





9 

message 

and then set up 

the A0 socket to receive the reply 

03D4 

53 



FCHdo: 

PUSH 

BX 

;Save Working Registers 

03D5 

51 




PUSH 

CX 


03D6 

SiS 




PUSH 

DX 


03D7 

B9 

474F 


MOV 

CX, ’ GO’ 

;Setup ’GO’ message with 

03DA 

8 A 

£6 

0001 E 


MOV 

AH, RQ.Dsc 

; error bit from the 

03DE 

80 

E4 

80 


AND 

AH,*RQdse 

5 disk status byte 

03E1 

0A 

EC 



OR 

CH, AH 




I 
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i 

f 

« 

l 

* 

4 

f 

f 

« 

f 

f 

€ 

€ 

4 

f 

f 

4 

i 

t 


03E3 

8 B 

IE 0088 R 





MOV 

BX,TrmGO.Dt1 $ Fetch transporter address 

03E7 

E 8 

001ft R 





CftLL 

TL_UIRD_OUT 5 of GG message and store data 

03 Eft 

8 ft 

4D 01 



5 


MOV 

CL, CDI3.MAD ^Fetch network address 

03ED 

8 B 

IE 0084 R 





MOV 

BX, TrrnGOn CCB ; Comput e t ransporter 1 ocat ion 

03F1 

8 D 

5F 0B 





LEft 

BX, CBXII ■ Dhost ; to place the* address 

03F4 

ES 

000B R 





CALL 

TL_BYT_OUT 5 Put into CCB 






5 

m 

9 


The receive of the GO reply is set up unless the disk status 






M 

9 


to be returned shows an error- In that case, the GO is sent 






5 


at this 

point without preparing for a reply, as the sender 






9 

a 


should 

not respond with more of the command unless status is ok 






9 


STATUS 

5 Disable interrupts 

03F7 

9C 



4 



PUSHF 


03F8 

Fft 



4 



CL I 


03F9 

SB 

DE 





MOV 

BX,SI 5 Set up needs ORB offset in SI 

03FB 

B 8 

0000 





MOV 

AX,$True 5 Indicate there is an ORB 

03FE 

BE 

0030 R 





MOV 

SI,OFFSET RcvGO $Fetch TST entry offset 

0401 

F 6 

06 0001 E 

80 




TEST 

RQ„ Dsc, $RQdse 5 for receive GO if 

0406 

75 

06 





JNZ 

FCHdol 5 disk status not error 

0408 

ES 

00ftB R 





CftLL 

TL_SET_RECV $ and set up the reply 

040B 

EB 

07 90 





JMP 

FCHdoE 5 Wait for result 

040E 

BE 

0080 R 



FCHdols 

MOV 

SI,OFFSET TrmGO 5 Fetch TST entry send GO 

0411 

E 8 

0133 R 





CftLL 

TL_SET_SEND 5 and send it off 






9 

9 


Now restore registers and wait around until the completion flag 






9 


in the 

ORB changes, then exit- The flag will be changed by the 






9 


TL-INT- 

LCR or the TL—INT—LCT routine (see below), which are the 






9 


interrupt service routines for socket A 0 receive (TST entry RcvGO) 






9 


and for 

socket ft0 transmit (TST entry TrrnGO) . 

0414 





FCHdoE: 

RESTORE 

;Restore interrupt status 

0414 

9D 



4 



POPF 


0415 

SB 

F3 





MOV 

SI,BX ;Restore all registers 

0417 

5ft 






POP 

DX 

0418 

59 






POP 

CX 

0419 

SB 






POP 

BX 

041ft 

5F 






POP 

DI 

04 IB 

E 8 

0000 E 





CALL 

TL__INT__WftIT 5 Call the wait routine 






9 


TRftCE 

E: TL--FETCH-LC 

041E 

80 

3E 000B E 

00 

4 



CMP BYTE PTR EC.Tree,$True 

04£3 

75 

0F 


4 



JNE 

??00£C 

0425 

50 



4 



PUSH 

AX 

0426 

B0 

00 


4* 



MOV 

fiL, 0 

0428 

56 



4 



PUSH 

SI 

0429 

BE 

0151 R 


4 



MOV 

SI,OFFSET ??00£D 

042C 

ES 

0000 E 


4 



CftLL 

EM_TRftCE 

042F 

5E 



4* 



POP 

SI 

0430 

58 



4 



POP 

AX 

0431 

EB 

01 90 


4 



JMP NEAR PTR ??00£C 

0434 




4 

PC. 

.CODE 

ENDS 


0151 




4 

PC 

DftTft 

SEGMENT 

PUBLIC *DftTft’ 


i 

I 

€ 

4 

€ 

4 

I 

« 

4 

f 

f 

I 

4 

4 

4 

4 

4 

« 

i 


f 


f 
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0151 

00 


4. 

??00£D 

LRB 

<, OFFSET ? ?00£F 

- OFFSET ??00£E> 

015S 

0D 


4. 





0153 

45 

3ft 54 4C £D 46 

4. 

??00£E 

DB 

"EsTL-FETCH-LC" 


0160 



4. 

PC_DATA 

ENDS 



0434 



4* 

PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 


6434 



4. 

??00£C 

LABEL 

NEAR 


0434 

C3 



9 

9 

RET 


5 then exit 





5 

5 The 

following routine is the 

TL-INT-LCR interrupt service rou 





; which is an 

» - 

integral part of 

the TL-FETCH—LC routine (Section 

0435 




5 

TL^INTJ 

LCR LABEL NEAR 






9 

TRACE 

S:TL—INT—LCR 


0435 

80 

3E 000B E 00 

4. 


CMP BYTE PTR EC.Tree,*Tr 

l ue 

043A 

75 

0F 

4* 


JNE 

? ?0030 


043C 

50 


4. 


PUSH 

AX 


043D 

B0 

00 

4. 


MOV 

AL, 0 


043F 

56 


4. 


PUSH 

SI 


0440 

BE 

0160 R 

4. 


MOV 

SI,OFFSET 770031 


0443 

E 8 

0000 E 

4- 


CALL 

EM_TRACE 


0446 

5E 


4 * 


POP 

SI 


0447 

58 


+ 


POP 

ftX 


0448 

EB 

01 90 

4. 


JMP NEAR PTR ?70030 


044B 



4. 

PC_CODE 

ENDS 



0160 



+ 

PC_DATA 

SEGMENT 

PUBLIC ’DATA’ 


0160 

00 


*+* 

??0031 

LRB 

<, OFFSET 770033 

- OFFSET ??003£> 

0161 

0C 


4 





0162 

53 

3A 54 4C £D 49 

4 

??003£ 

DB 

"S:TL—INT—LCR" 


016E 



4 

PC_DATA 

ENDS 



044B 



4 

PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 


044B 



4 

??0030 

LABEL 

NEAR 


044B 

80 

3C 00 


5 

CMP 

CSI 3.PN,$True 

5 There should be an ORB 

044E 

74 

01 



JE 

SUGok 

;Just exit if one 

0450 

C3 




RET 


$ is not there 

0451 

8 B 

5C 10 


9 

BUGok “ 

MOV 

BX,CSI3.TT_Orb 

;Fetch ORB location from TST enti 

0454 

3C 

FE 



CMP 

AL,*TrSS 

5 If the entry is for successful 

0456 

74 

14 



JE 

SUGtrm 

5 setup, send the GO message 

0458 

3C 

00 



CMP 

AL,STrOK 

5 If a message has been received 

045A 

74 

19 



JE 

SUGrnsg 

5 go to fetch the data 

045C 

FE 

4F 01 


9 

DEC 

CBX3.OP 

5 Decrement the retry count 

045F 

75 

04 



JNZ 

SUGrty 

5 and retry setup if not zero 

0461 

C 6 

07 06 



MOV 

CBX3.CC, *OPttf 

5 Indicate transporter didn’t 

0464 

C3 




RET 


; do its thing and exit 

0465 

BE 

0030 R 


5 

SUGrty: 

MOV 

SI,OFFSET RcvGO 

5 Fetch TST entry offset 

0468 

E 8 

00FE R 



CALL 

TL SET RTRY 

5 and go to set up the reply 

046B 

C3 




RET 


1 Ret urn to driver 
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If the entry is for successful receive setup, send off the 
GO message and exit. TL—INT—LCT will set up the timing loop. 


0460 

B0 

00 


SUGt rrn s 

MOV 

ftL,$True 

5 Indicat e ORB present 

046E 

BE 

0080 R 


MOV 

SI,OFFSET TrmGO 

;Set TST entry for transmit 

0471 

E 8 

0133 R 


CALL 

TL_SET_SEND 

;Send off the GO message 

0474 

03 




RET 


5 and return to TL—INT—DRVR 





5 

5 

If the 

entry if for message received, fetch the data f 





? 

transp 

orter to where the ORB specifies, set the comple 





N 

9 

flag, 

arid then return t' 

o the driver. 

0475 

80 

30 

00 

5 

SUGrnsg s 

CMP 

CSI3.PN, $True 

?Just exit if 

0470 

74 

01 



JE 

SUGrnsh 

5 timeout has 

0470 

03 




RET 


5 occurred 

047B 

06 

04 

01 

SUGrnsh : 

MOV 

ESI3.PN, $False 

SClear ORB flag 

047E 

06 

06 

0094 R 01 


MOV 

VarOP.PN, $False 

5 Stop timing loop 

0483 

53 




PUSH 

BX 

5 Save ORB location 

0404 

8 B 

50 

06 


MOV 

BX, ESI3.RR 

;Get transporter location 

0487 

8 D 

5F 

01 


LEA 

BX, EBX3.Shost 

5 of NAD of sender 

048ft 

E 8 

00£C R 


CALL 

TL_BYT_IN 

;Feteh the NAD 

048D 

SB 

IE 

0004 E 


MOV 

BX, RQ. Top 

;Offset of top entry 

0491 

3ft 

47 

01 


CMP 

ftL,EBX3.NAD 

;Accept the data if from 

0494 

74 

05 



JE 

SUGdat 

? the right machine 

0496 

SB 




POP 

BX 

;If not, recover ORB, 

0497 

06 

07 

03 


MOV 

EBX3.00, $0Ptto 

s treat as a time-out, 

049ft 

03 




RET 


§ and ret urn to driver 

049B 

8 B 

50 

06 

5 

SUGdats 

MOV 

BX, ESI3.RR 

$ 8 et transporter location 

049E 

SD 

5F 

0 £ 


LEft 

BX, EBX3. Rcvler. 

S of the received data length 

04ft 1 

E0 

0039 R 


COLL 

TL_WRD_IN 

^Fetch the length 

04A4 

5B 



5 

POP 

BX 

5 Recover ORB offset 

04R5 

B1 

00 



MOV 

CL,$0Pcne 

;Assume length ok 

04A7 

3B 

47 

0£ 


CMP 

AX, EBX3.Sze 

5 All ok if 

04ftfl 

74 

0ft 



JE 

SUGdaz 

5 sizes match 

04AC 

70 

03 



JL 

SUGday 

5 Use received size 

04ftE 

8 B 

47 

0c! 


MOV 

OX, EBX3.Sze 

; or ORB size, 

04B1 

89 

47 

0c! 

BUGday: 

MOV 

EBX3 . Sze,AX 

3 whichever is smaller 

04B4 

B1 

01 



MOV 

CL, $QPinl 

5 Set for incorrect length 

04B6 

88 

0F 


SUGdaz s 

MOV 

EBX3.00,CL 

^Completion code to ORB 

04B8 

SB 

08 



MOV 

OX, AX 

5 Length to CX for move routine 

04BA 

SB 

7F 

04 


MOV 

DI, EBX3 . RB Data 

;Address to transfer to 

04BD 

8 B 

50 

08 


MOV 

BX, ESI 3 . Dt1 

;Transporter location of data 

04C0 

E 8 

0098 R 


CALL 

TL_DTA_IN 

;Go fetch the data 

04C3 

03 



9 

RET 


5 Ret urn to driver 


; The following routine is the TL-INT-LCT interrupt service routine, I 
; which is an integral part of the TL-FETCM-LC routine. This routine I 
5 sets up the timing loop if the GO transmission was successful. If I 
„ transmission failed, the ORB completion flag is set accordingly. I 


< 
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. - — 

— 

— 

, ~ ~~ —* •— ~~ —• ~~ *— ~~ — —“ ~~ 

04C4 






TL__INT_LCT LABEL NEAR 









TRACE 

S:TL—INT—LCT 


04C4 

80 

3E 

000B E 

00 

+ 


CMP BYTE PTR EC.Tree,$True 

04C9 

75 

0F 



4* 


JNE 

770034 


04CB 

50 




4* 


PUSH 

AX 


04CC 

B0 

00 



4- 


MOV 

AL, 0 


04CE 

56 




4* 


PUSH 

SI 


04CF 

BE 

016E R 


4- 


MOV 

SI,OFFSET 770035 

04DS 

E8 

0000 E 


4- 


CALL 

EM TRACE 


04D5 

5E 




4- 


POP 

SI 


04D6 

58 




4* 


POP 

AX 


04D7 

EB 

01 

90 


4* 


JMP NEAR PTR 770034 


04DA 





4- 

PC CODE 

ENDS 



016E 





4* 

PC__DATA 

SEGMENT 

PUBLIC ’DATA’ 


016E 

00 




4- 

?70035 

LRB 

<, OFFSET 770037 

- OFFSET 770036) 

016F 

0C 




4* 





0170 

53 

3A 

54 4C i 

2D 49 

4* 

770036 

DB 

"S s TL—INT—LCT" 


017C 





4- 

PC_DATA 

ENDS 



04DA 





4- 

PCICODE 

SEGMENT- 

PUBLIC ’CODE’ 


04DA 





4- 

770034 

LABEL 

NEAR 


04DA 

80 

3C 

00 



5 

CMP 

ESI 3.PN,*True 

;There should be an ORB 

04DD 

74 

01 





JE 

TRGok 

;Just exit if one 

04DF 

C3 






RET 


; is not there 

04E0 

8 B 

5C 

10 



TRGok: 

MOV 

BX,CSI3.TT_Orb 

;Fetch ORB location from TST entry 

04E3 

AS 

80 





TEST 

AL,$TrNG 

; If the entry is for successful 

04E5 

74 

10 





JZ 

TRGtrne 

; transmission, set up timing loop 

04E7 

FE 

4F 

01 



5 

DEC 

CBX3. OP 

;Decrement the retry count 

04EA 

75 

04 





JNZ 

TRGrty 

; and retry setup if not zero 

04EC 

C6 

07 

05 




MOV 

CBX3.CC, $OPtng 

5 Indicate transporter didn’t 

04EF 

C3 






RET 


; do its thing and exit 

04F0 

BE 

0080 R 



5 

TRGrty: 

MOV 

SI, OFFSET TrrnGO 

; Fetch TST entry offset 

04F3 

E8 

00FE R 




CALL 

TL_SET„RTRY 

; and go do the retry 

04F6 

C3 






RET 


; Ret urn to driver 







5 

? 

If the ( 

30 was transmitted properly, call the Timeout Setup 







« 

routine 

to set a timing 

loop provided the GO was for a 







5 

valid command. If a dis 

k error code was returned, set 







M 

9 

the ORB 

comp1etion flag 

and exit. 

04F7 

F6 

06 

0001 E 

80 


5 

TRGtrne: 

TEST 

RQ.Dsc,$RQdse 

5 Continue if GO was 

04FC 

74 

04 





JZ 

TRGtmf 

5 for no disk error 

04FE 

CS 

07 

00 




MOV 

CBX3.CC, $0Pcne 

5 If no receive expected, set 

0501 

C3 






RET 


5 ORB completion and exit 

0502 

BE 

0030 R 



TRGtmf: 

MOV 

SI,OFFSET RcvGO 

;Fetch TST entry for receive 

0505 

C6 

47 

01 0A 




MOV 

CBX3 . OP, SMaxWte 

;Set time-out count 

0509 

8 B 

3E 

0004 E 




MOV 

DI, RQ. Top 


050D 

8 A 

45 

01 




MOV 

AL,CDI3.NAD 

5 Fetch network address 
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0510 E8 014B R 
0513 C3 

0514 


XL BET TIME 


TL FETCH LC ENDP 


{ Set up t i rn i ng 1 oop 
5 Return to driver 




5 Module names Bend Name Lookup Message CTL-SEND-NLM) 

5 

5 Versions £.0 
5 

5 Last Updates 14 November 1983 
5 

{Functions The Bend Name Lookup Message routine is called by any 

5 routine which wants to transmit a Name Lookup Message to 

5 another machine- TL-SEND—NLM inserts the message into 

{ transporter memory and calls TL—SET-BEND to do the 

{ transmission- The interrupt service routine TL-INT-NLM, 

; which is part of TL-SET-SEND, completes the action. 

5 

{Procedures Program Logic Description, Section £.7.8 

{Called Bys TL-RCV-WHO, TL-RCV-WHERE 
5 

5 Routines called: TL-DTA-OUT, TL-SET-SEND, TL-SET-RECV 
5 

{Inputs DSs (SI) - Location message 

s <CL) « NAD of machine to receive message 


{Outputs None. I 

5 ^ 
{Error procedures s None I 
5 1 
{Written bys R«B« Talmadge, Computer Technology Ltd i 
5 ^ 
{Updates: None I 
5 I 
2 ****#*****•**************#•****##******##***#*•*#***#**#***#****#*#*#**#•** 


0514 


TL BEND NLM PROC NEAR 








TRACE 

S:TL-SEND—NLM 

0514 

80 

3E 000B E 00 

4* 



CMP BYTE PTR EC.Tree,$True 

0519 

75 

0F 

+ 



JNE 

??0038 

05 IB 

50 


4- 



PUSH 

AX 

051C 

B0 

00 

4* 



MOV 

AL, 0 

05 IE 

56 


4* 



PUSH 

SI 

05 IF 

BE 

017C R 

4- 



MOV 

SI,OFFSET ??0039 

05SS 

E8 

0000 E 

4* 



CALL 

EM„TRACE 

05S5 

5E 


4* 



POP 

SI 

0526 

58 


4* 



POP 

AX 

0527 

EB 

01 90 

4* 



JMP NEAR 

: PTR ??0038 

052A 



4* 

PC 

_CODE 

ENDS 


017C 



4* 

PC. 

_JDATA 

SEGMENT 

PUBLIC ’DATA’ 

017C 

00 


4* 

??0039 

LRB 

<, OFFSET ??003B - 1 

017D 

0D 


4* 






€ 




The 

IBM 

Personal 

Computer 

MftCRO Assembler 01-14-84 PAGE 

:L -40 

0 i 7E 

53 

3ft 54 4C £D 53 

4 * 

??003ft 

DB 

"S:TL-SEND—NLM" 


018B 




4 * 

PC DftTfl 

ENDS 



05£A 




+• 

PC“CODE 

SEGMENT 

PUBLIC ’CODE’ 


05£A 




4 - 

??0038 

LABEL 

NEAR 


05£ft 

80 

3E 0044 

R 00 


5 

CMP 

TrrnNLM. PN, $True 

5 Cannot send message if Local 

05£F 

75 

01 




JNE 

NSok 

5 Command doing send, so 

0531 

C3 





RET 


5 ret urn and allow reeeption 

053£ 

8 B 

3E 0048 

R 


5 

Nsok: 

MOV 

DI, TrrnNLM. CCB 

;Fetch transporter 

0536 

8 D 

5D 0B 




LEO 

BX,CDI3.Dhost 

; address of NAD 

0539 

E 8 

000B R 




CALL 

TL_BYT_OUT 

5 NAD to transporter 

053C 

B9 

001 £ 



If 

MOV 

CX,TYPE NLM 

5 Length of message 

053F 

8 D 

5D 08 




LEA 

BX, EDI 3.Dat1 

5 Place length into 

054£ 

E 8 

001ft R 




CALL 

TL_WRD_OUT 

5 CCB in transporter 

0545 

SB 

IE 004C 

R 


5 

MOV 

BX, TrrnNLM. Dt 1 

5 Transporter address for data 

0549 

E 8 

0085 R 




CALL 

TL_DTft_OUT 

5 Send data to transporter 

054C 

FE 

0E 0005 

E 



DEC 

MT.MT_Mod 

;Assure reception not restarted 

0550 

BE 

0044 R 



5 

MOV 

SI, OFFSET TrrnNLM 

5 Get TST entry offset 

0553 

B0 

01 




MOV 

ftL,$FaIse 

5 Set no ORB 

0555 

E 8 

0133 R 




CALL 

TL_SET_SEND 

5 Go send the message 







TRACE 

E:TL-SEND-NLM 


0558 

80 

3E 000B 

E 00 

4 * 


CMP BYTE PTR EC.Tree,$True 

055D 

75 

0F 


4 * 


JNE 

? ?003C 


055F 

50 



4 * 


PUSH 

AX 


0560 

B0 

00 


4 - 


MOV 

ftL, 0 


056£ 

56 



4 - 


PUSH 

SI 


0563 

BE 

018B R 


•4 


MOV 

SI,OFFSET ??003D 


0566 

E 8 

0000 E 


4 - 


CALL 

EM_TRflCE 


0569 

5E 



4 - 


POP 

SI 


056ft 

58 



4 - 


POP 

AX 


056B 

EB 

01 90 


4 * 


JMP NEAR PTR ??003C 


056E 




4 * 

PC_CODE 

ENDS 



018B 




4 * 

PC_DATA 

SEGMENT 

PUBLIC ’DATA’ 


018B 

00 



4 - 

??003D 

LRB 

<, OFFSET ??003F ■ 

- OFFSET ??003E> 

018C 

0D 



4 * 





018D 

45 

3ft 54 4C 

£D 53 

4 - 

??003E 

DB 

"E;TL-SEND-NLM" 


019ft 




4 * 

PCJDflTA 

ENDS 



056E 




4 * 

PC_CODE 

SEGMENT 

PUBLIC ’CODE’ 


056E 




4 

??©03C 

LABEL 

NEAR 


056E 

C3 




5 

RET 


5 and ret urn 


« — ~~ ~~ “ ~ *-'■ “ ~ *"*' 

5 The following routine is the TL—INT—NLM interrupt service routine, i 
$ which is an integral part of the TL—SEND—NLM routine- This routine I 
^ retries the transmission if there is a failure, until either there 1 
; is success or the retry count is exeeded- It also restarts Name I 
$ Lookup message reception when the transmission sequence is done- 1 
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1-41 


©56F 


056F 

©574 

©576 

0577 

0579 

057A 


INI NLM 


80 3E ©00B E 00 
75 0F 
50 

B0 00 
56 

BE 019A R 


TRACE 

CMP B 

JNE 

PUSH 

MOV 

PUSH 

MOV 


LABEL 
E S: 


NEAR 


E S:TL—INT-NLM 
BYTE PTR EC.Tree,$True 
7 7 0040 
AX 

AL, 0 
SI 


SI,OFFSET 


70041 


057D 

E 8 

0000 E 

4* 


CALL 

EM_TRACE 

A 

0580 

5E 


4* 


POP 

SI 

1 

0581 

58 


4- 


POP 

PX 


0582 

EB 

01 90 

•4 


JMP NEPR PTR ?70040 

m 

0585 



4- 

PC_C0DE 

ENDS 


1 

019A 



4. 

PC_DATA 

SEGMENT 

PUBLIC ’DATA’ 


019P 

00 


4- 

770041 

LRB 

<, OFFSET 770043 

- OFFSET 770042) 

019B 

0C 


4* 




f 

019C 

53 

3A 54 4C 2D 49 

4* 

770042 

DB 

"SsTL-INT-NLM" 


01 AS 



4* 

PC_DATA 

ENDS 



0585 



4* 

PC_C0DE 

SEGMENT 

PUBLIC ’CODE’ 

f 

0585 



4- 

770040 

LABEL 

NEAR 


0585 

80 

.30 00 


¥ 

CMP 

ESII.PN,ITrue 

5 If there is an ORB 

0588 

75 

03 



JNE 

NS I go 

5 pass the baton to the 

058ft 

E9 

0000 E 



JMP 

LC_INT-NLM 

$ Local Command int rtn 

| 

058D 

A8 

80 


NSIgos 

TEST 

PL,$TrNG 

; If the entry is for successful 

058F 

74 

09 



JZ 

NSXrs 

« transmission, restart reception ^ 

0591 

FE 

4C 10 



DEC 

BYTE PTR ESIH.TT 

_ 0 rb 5 Decrement the retry count 

0594 

74 

04 



JZ 

NSIrs 

5 Rest art reception if zero ^ 

0596 

E 8 

00FE R 



CALL 

TL_SET_.RTRY 

; If - not, do a refry 

0599 

C vl 




RET 


§ Ret urn t o driver 





§ 

Reenter 

here if successful or retry count exceeded ® 

059A 

B0 

01 


NSIrss 

MOV 

PL,$Fa1se 

; Set for no ORB, 

059C 

BE 

0008 R 



MOV 

SI,OFFSET RcvNLM 

; assure TST pointer, * 

059F 

E 8 

00AB R 



CALL 

TL__SET_RECV 

^ request restart, 

05A2 

C3 




RET 


; and exit ^ 

05A3 




TL SEND 

NLM ENDP 



*******#*»*******#****#**#***********#***#***•*•*•*#•*•■*■**■•*#■*•*«••*■**«•*■*•**•*•**•** 
End of the Assembly housekeeping goes here ! 

********************************************************* •*•*•*•*•**••*■**■*•*■**• •*•**•** 


05A3 


PC_CQDE ENDS 
5 

PUBLIC IT 
PUBLIC TTbgn 
PUBLIC TTend 
PUBLIC RevICS 
PUBLIC RcvNLM 
PUBLIC TrmiMLM 


?1ST header 

5 St art of regular TST entries 
5 End of regular entries 
5 TST entry for ICS receive 

5TST entry for NLM receive 

sTST entry for NLM transmit 


f 



f 
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« 

4 

< 

4 

f 

i 

i 

i 

« 

f 

« 

i 

« 

t 

4 

4 

< 

f 
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PUBLIC TrmNAD 
PUBLIC VarOP 
PUBLIC TL„BYT_IN 
PUBLIC TL_.WRD._IN 
PUBLIC TL„DTA_IN 
PUBLIC TL_BYT„OUT 
PUBLIC TL_WRD._OUT 
PUBLIC TL_DTA_OUT 
PUBLIC TL_DO._CMND 
PUBLIC TL_.SET_.RECV 
PUBLIC TL_SET_BEND 
PUBLIC TL_SET_RTRY 
PUBLIC TL_RTM_RSLT 
PUBLIC TL_FETCH_LC 
PUBLIC TL_SEND_NLM 
PUBLIC TL_SET_TIME 

END 


( 


( 


1 4* c! 

I 

5 1ST entry for sending NAD | 

«1ST entry for variable opns 
5 Fet eh byt e from t ransport er 

5 Fetch word from transporter | 

; Fet eh st r i ng f rom t ransport er 
5 Put byte into transporter 

5 Put word into transporter ^ 

5 Put data into transporter 
;Execute transporter command 

; Set up message receive g 

;Do message transmission 
5 Do a command retry 

5 Ret urn command result g 

;Fetch long command 
5 Send Name Lookup message 

5 T i rneout set up g 


f 

f 

4 

I 

« 

€ 

i 

i 

€ 

1 

c 

€ 

C 


f 
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Length 

000F 
0003 
0003 
0012 
0008 
0001 
001 1 
0002 
0002 
0005 
000F 
000E 
0001 
0012 
0002 
000D 
0018 
0003 
00 1 ft 
0001 
0003 
0002 
000 1 
0009 


Width # fields 
Shift Width Mask 

0000 0009 

0000 
0002 
0004 
0006 
0008 
000ft 
000B 

0008 0004 

0000 
0001 
0002 
0004 

0008 0005 

0000 
0001 
0002 
0004 
0006 

0040 001ft 

0000 
0008 


c 

Symbols—1 

< 

€ 

< 

f 

I 

f 

f 

f 

« 

f 

€ 

* 

Initial 

l 

t 

< 

€ 

€ 

< 

€ 

« 


f 
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Symbols-E 


ec_drv.. mm 

EC_FL.G ..- - 000A 

TRCE . .......... 000B 

COLD . ......... 000C 

EC_TRM . ....... 000D 

MAX. .. . 000E 

NEXT ... 0010 

DIR.. 00IE 

NAM. .............. 001A 

SERV .. 0022 

EC_ATRU„ ............ 002C 

EC_ATRS. ............ 002D 

EC__ATRL„ .. 002E 

EC_TBI .. 002F 

TLTMCK .. . 0030 

TLTMRS ............. 0031 

KEEPOUT. ............ 003S 

INTDFR ............. 0033 

DOSDKO .. . 0034 

DOSDKS ............. 0036 

DDRH .............. 0038 

DDRHS. .. 003A 

TCKO .............. 003C 

TCKS .............. 003E 

LRB. .............. 0002 0002 

CDE. .............. 0000 

LR_LEN ............. 0001 

NLM. .............. 00IS 0005 

PID. ............. . 0000 

MGT. ... 0002 

SRC. .............. 0004 

DEV. .............. 0006 

NL_NAME. ............ 0008 

NLMT .............. 0016 0009 

MT_USE .............. 0000 

MT_.NAD .. 0001 

OPC. ............... 0004 

MT__MOD . 0005 

MT_NAME. .. 0006 

MT_SRC ............. 0010 

MTJDEV .. . 0011 

RSVD.. 00 IE 

ORB.... 0008 0005 

CC .............. . . 0000 

OP .............. . 0001 

SZE. ... 000E 

RBJDATA. ............ 0004 

RB DATAS . ...... 0006 

RRKD~. ............. 0004 0003 

RCODE. ............. 0000 

SHOST. ............. 0001 

RCVLEN . ....... 0002 

RRRCV. ............. 0004 0002 

LOFCM. ............. 0000 

ELOFRP ............. 0002 
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RRSND. . . 

tt 



tt 

tt 

tt 

tt 


» 

tt 

tt 


ftLOFRP . 

H 

tt 


tt 

•t 

tt 

tl 


tt 

tt 

tt 


DSTAT. . 

M 

tt 


tt 

N 

tt 

tt 


« 


18 


TSTE . . . 


tt 



It 

SI 





.. 


PM . . . 


tt 



M 

IS 




It 

ft 


TT ST- . 

t» 

tt 

tt 


tt 

IS 




II 

* 


SK . . . 

m 

tt 

tt 


tt 

tt 

It 

it 


at 

n 


TT OP. . 

u 

tt 

tt 


tt 

tt 

N 

a 


tt 

it 


CCB. . . 

m 

tt 

it 

M 

II 

II 

m 

it 


m 

H 


RR . . . 

n 

tt 

Ml 

tt 



m 

•t 

It 

tt 

It 


DTL. - 

«t 

tt 


It 

It 



it 

tt 

tt 


» 

DSZ. . . 

« 

K 

« 

N 

tt 


X 

it 

II 




ISR- - - 

M 


tt 

tt 


tt 



.. 

t. 

n 


ISRS . . 

tt 


„ 

« 



» 


tt 


» 


TT_ORB . 

u 



tt 

.. 


is 


« 


It 


TT_QRBS. 

„ 

„ 

H 

„ 


tt 

«t 

<t 

tt 


m 


TSTH - - „ 

» 



» 



IS 


tt 

tt 

tt 


IMT. - „ 

„ 


tt 

tt 

„ 


it 

X 

» 

.. 

. 

» 

TT_CI. - 

* 


tt 

w 

tt 

tt 



St 


x 

tt 

NE . . . 

» 


tt 

ti 

u 

tt 



tt 

si 

tt 

X 

TT_NAD 

ti 

„ 

tt 

» 

« 




It 

it 

tt 

tt 

TSTLE. . . 

X 



« 

X 

« 


X 

tt 

ti 

X 


LE_CC. , 

X 

» 

tt 

M 

tt 

M 

X 


tt 



n 

LE_OP. . 

« 

m 


t> 

M 

tt 


ti 

tt 

» 

X 

tt 

LE_LEN . 

X 

u 


.. 

tt 

» 

a 

ti 



tt 

tt 

TRM. - . 

M 

« 

tt 

<t 

tt 

tt 

m 

m 

« 

X 

» 

» 

T'RMS . . 

« 

n 

IS 

tt 

tt 

tt 

u 

St 

tt 

ts 

a 

» 

RCV. . . 

X 

H 

tt 

«t 

tt 

» 

tt 

» 

tt 

« 

& 

tt 

RCVS . . 

„ 


X 

it 

tt 

tt 



tt 

w 


n 

LE ISR - 

n 

„ 

tt 

k 


tt 

ts 

tt 

tt 

tt 


X 

LE_ISRS. 

X 

w 

«« 

X 

II 

tt 

«. 

tt 

tt 


tt 

tt 

LE BP. . 

ii 

n 

„ 

tt 

|| 


tt 

tt 

tt 

tt 

m 

tt 


0003 
0000 
0002 
0014 
0000 
0001 
0002 
0003 
0004 
0006 
0008 
000A 
000C 
000E 
0010 
0012 
0004 
0000 
0001 
0002 
0003 
0014 
0000 
0001 
0002 
0004 
0006 
0008 
000A 
000C 
000E 
0010 


0002 

000C 


0004 

000B 


Segments and groups; 





Name 





S i ze 

al i gn 

combine 

class 

PCS. . . . 



n rn to to to 


. 


. 

GROUP 




PC_CODE. 


s* 

u u w to 

» 

„ 

„ 

tt tt 

05A3 

PARA 

PUBLIC 

» CODE 

PC_DATA. 

- 

x 

X X » « - 

- 

“ 

” 

II tt 

01A8 

PARA 

PUBLIC 

’ DATA 

Symbols; 















N a rn e 





T ype 

Val ue 

Attr 


Cl*. . . . 




. 

. 

. 


Number 

0000 



DEBUG* . . 


a 

» M to to to 

u 

X 

8* 

II 

Number 

0001 



DM*. . . . 

n 

to 

m n to n to 

II 

X 

tl 

tt 

Number 

0000 



DM_ERR_LOG 

a 

to 

to to n tt to 

tt 

tt 

tt 

tt 

L NEAR 

0000 


Ext er 1 

DORES. . . 


m 


w 

tt 

K 

„ 

L NEAR 

006C 

PC_CODE 


DORES1 . . 

„ 

n 


tt 

tt 


M 

L NEAR 

0073 

PC_CODE 


DR*. . . . 

n 

to 

w n n to to 

tt 

tt 

tt 

tt 

Number 

0000 



DTAI . . . 

tt 

St 

to n to a n 

tt 

w 

tt 

tt 

L NEAR 

00AA 

PC_CODE 


DTAINA . . 

x 

m 

vi « » tt to 

tt 

„ 

tt 

tt 

L NEAR 

00A5 

PC_CODE 


DTAO . . . 

« 

m 

tt to u ft m 

tt 

tt 

ss 

tt 

L NEAR 

0097 

PC_CODE 
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DTAOUA 

M 

n M 

M 

„ 

» 

„ 

n 



IS 

ii 


L 

NEAR 

0092 

PC 

_CODE 

EC . - 







St 

|a 

II 

w 

n 

„ 

V 

BYTE 

0000 



El*. - 

n 

n w 

» 

n 

si 

» 

„ 

ff 

„ 

tt 

„ 

„ 

Number 

0000 



EM TRACE 

M « 

<> 

„ 

„ 

tt 

w 

n 

,, 

tt 

a 

tt 

L 

NEAR 

0000 



EYE* . 

„ 

n n 

„ 

„ 

u 

It 

tt 

tt 

II 

It 

M 

tt 

Number 

0001 



FCHDO. 

w 

tt m 


„ 


II 

»f 


tt 

„ 

„ 


L 

NEAR 

0304 

PC 

CODE 

FCHD01 

ti 

it it 

„ 

tt 

„ 

tt 

tt 

w 

N 

II 

n 

„ 

L 

NEAR 

040E 

PC 

_CODE 

Fcmoa 

u 

„ „ 

„ 

n 

„ 

tt 

„ 

n 

tt 

„ 

m 

„ 

L 

NEAR 

0414 

PC 

_CODE 

FCHNLC 

w 


„ 

:• 

M 

II 

tt 

88 

„ 

tt 


1, 

L 

NEAR 

03CB 

PC 

_CODE 

FCHOK. 

B 

tt u 

„ 

ii 

tt 

tt 

tt 

W 

„ 


„ 

» 

L 

NEAR 

03CS 

PC 

_CODE 

IS*. . 

W 

tt at 


u 

■t 

M 

tt 

m 


„ 

„ 

R 

Number*' 

0000 



LC*. . 

„ 

„ „ 

„ 

n 

tt 

„ 

„ 

n 

„ 

tt 

„ 

« 

N« 

amber 

0000 



LC FETCH 

_LC. 

„ 

ii 

tt 


tt 

„ 

tt 

„ 

» 

R 

L. 

NEAR 

0000 



LC I NT 

NLM « 

„ 

„ 

„ 

„ 

* 


H 

tt 

88 

It 

L 

NEAR 

0000 



LC RCV 

CMND. 

U 

„ 

„ 

„ 

„ 


u 

tt 

tt 


L 

NEAR 

0000 



LC RTN 

RSLT. 

« 

„ 

„ 

tt 

„ 

tt 

tt 

„ 

It 

R 

L 

NEAR 

0000 



MT m ■ 

u 

u a 

88 

B 

„ 

tt 

» 

» 

it 

„ 

r 

ft 

V 

BYTE 

0000 



IMA*. . 

88 

„ „ 

„ 

„ 

„ 

II 

„ 

fi 


tt 

tl 

tt 

Number 

0000 



MOCOM* 


„ „ 

u 

tt 

tt 

II 

„ 

b 


tt 

It 

„ 

Number 

0000 



NSIGQ. 


W N 

„ 

„ 

tt 

tt 

M 


n 

n 

„ 


L 

NEAR 

058D 

PC 

_CQDE 

NS IRS. 

„ 

B « 

IS 

« 

tt 

„ 

n 

n 

M 

„ 

„ 


L 

NEAR 

059A 

PC 

_CODE 

NS OK « 

M 

„ n 

tt 

U 

II 

M 

„ 

ss 


it 

n 

„ 

L 

NEAR 

053E 

PC 

_CODE 

pi*. . 

88 

rt tt 

„ 

» 

tt 

n 

it 

It 

„j 

ss 

» 

» 

Number 

0000 



RCVSO. 

n 

M 18 

„ 

M 

a 

tt 

« 

tt 

*« 

» 

r 

tt 

L 

0014 

0030 

PC 

_DATA 

RCVICS 

u 

ft 8f 


tt 

» 

U 

„ 


t« 

88 

M 

tt 

L. 

0014 

00 1C 

PC 

_DATA 

RCVNLM 

n 

It U 

„ 


w 

tt 

n 

,, 

„ 

» 


tt 

L 

0014 

0008 

PC 

_DATA 

RQ . „ 

is 

n it 

„ 

tt 

is 


it 

ff 


w 

tt 

18 

V 

BYTE 

0000 



RSLDO. 

n 

tt w 

st 

tt 

„ 

„ 

t. 

tt 

r 

H 

„ 

R 

L 

NEAR 

02 D1 

PC 

„CODE 

RSLDD1 

it 

w It 

«• 

tt 

M 

„ 

* 


„ 

„ 



L 

NEAR 

02DF 

PC 

_CODE 

RSLDX. 

»! 

it n 

w 

„ 

M 

w 

» 

„ 

» 



„ 

L 

NEAR 

0338 

PC 

_CODE 

RSLNG. 


it it 

tt 

1) 

„ 

tt 

it 

u 

ti 

u 

„ 

« 

L 

NEAR 

037B 

PC 

_CODE 

RSLNG1 


w » 

» 

„ 

„ 

» 

n 

„ 

„ 

„ 

„ 

„ 

L 

NEAR 

0383 

PC 

„CODE 

RSLNLC 


u tt 

H 

<1 

tt 

tt 

tt 

„ 


„ 

„ 

„ 

L 

NEAR 

02C7 

PC 

ICODE 

RSLOK. 

W 

If M 


„ 

„ 

„ 

tt 

„ 

is 

w 

R 

„ 

L 

NEAR 

02BF 

PC 

_CODE 

RSLOKK 

ii 

„ „ 

It 

01 

M 

If 

„ 

„ 

ti 


„ 

„ 

L 
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0370 

PC 
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RSLRTY 

« 

IS B 

H 

11 

„ 

„ 

„ 

«1 

„ 

tt 

If 

„ 

L 

NEAR 

038C 

PC 

_CODE 

SETXST 

a 
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« 

tt 

„ 

tt 

it 

tt 
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,, 

„ 

L 

NEAR 

00CE 

PC 

,_CODE 

SETXSU 
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„ 

„ 

„ 

H 

„ 

tt 

It 

tt 

tt 

It 

L 

NEAR 

00D7 

PC 

_CODE 

SM*. . 

„ 

SI u 

U 

II 

„ 
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» 

tt 
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tt 
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P 
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0000 



SNXIT. 

n 
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„ 

II 

II 

ft 
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„ 

tt 

It 

R 

tt 

L 
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If 

tt 

tt 
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n 

„ 

tt 

tl 
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51 

L 
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0076 

PC 

-CODE 

STRBCR 

tt 

u tt 
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tt 
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tt 
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SUGDAT 
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„ 

n 

tt 

M 

it 

„ 
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|| 

n tt 
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n 

tt ii 

,, 

it 
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SUGRTY 
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„ 

« 

L 

NEAR 

0465 

PC 

_CODE 

SUGTRM 
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8* tt 
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PC 

_CODE 
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TENV*. 
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tt 

tt 
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Number 

0000 



TIMLP. 
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NEAR 
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PC. 

..CODE 

TIMLP0 





„ 

tt 

«9 

tt 

tt 

n 

tt 

n 

L 

NEAR 

0248 

PC 

CODE 

TIMLP1 


f* it 

n 

„ 

tt 

IS 

*1 

I* 

** 

« 

» 

n 

L 

NEAR 

0261 

PC, 

_CODE 


Symbols- 


External 

External 


External 
Externa1 
External 
External 
External 


G1oba1 
Global 
External 
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TIML.PP 

ii n « 

„ 

„ 

a 

* 

n 

u 

« 

ii 

„ 

a 

L 

NEPR 

0211 

PC_ 

CODE 


TIMOUT 

nun 

n 

W 

,3 

H 

„ 

n 

R 

w 

w 

a 

L 

NEPR 

02 IB 

PC_ 

CODE 


TIMGUX 

If M M 

M 

„ 

„ 



u 

„ 

ft 

n 

„ 

L 

NEPR 

02 IE 

PC_. 

CODE 


TIMX IT 

„ „ 

n 

„ 

„ 

w 

„ 

W 

U 

„ 

n 

* 

L 

NEPR 

023P 

PC_ 

CODE 


TL$. . 

If n n 

H 


u 

it 

II 

If 


ft 


a 

Number 

0001 




TL BYT 

IN. - 



u 


f| 

ft 

w 


II 

„ 

N 

PROC 

002C 

PC_ 

CODE 

Global Length =000D 

TL BYT 

OUT . 

n 

M 

u 


n 


u 

„ 

„ 

„ 

N 

PROC 

000B 

PC_ 

CODE 

Global Length =000F 

TL DO CMWD „ 

m 

„ 

u 

n 

n 

„ 

If 

w 


„ 

N 

PROC 

0043 

PC_ 

CODE 

Global Length =0042 

TL DTP 

IN. - 

M 

II 

n 

„ 



1* 


„ 

a 

N 

PROC 

0098 

PC_ 

CODE 

Global Length =0013 

TL DTP 

OUT . 

„ 


„ 


„ 

„ 

n 

w 

„ 

a 

N 

PROC 

0085 

PC_ 

code: 

Global Length =0013 

TL FETCH IC. 

II 

„ 



w 

„ 

„ 

,1 

m 

n 

L 

NEPR 

0000 



External 

TL FETCH LCu 

m 



„ 

n 

„ 


n 

a 

„ 

N 

PROC 

0393 

PC_ 

CODE 

Global Length =0181 

TL I NT 

LCR . 

„ 

„ 

„ 

a 

i, 

„ 



„ 

a 

L 

NEPR 

0435 

PC_ 

CODE 


TL I NT 

LCT . 





a 

n 

„ 

n 

„ 

a 

L 

NEPR 

04C4 

PC_ 

CODE 


TL I NT 

NflD . 


„ 

„ 

ii 

M 

« 

n 


„ 

„ 

L 

NEPR 

0000 



External 

TL I NT 

NLM . 

„ 

„ 

„ 

„ 

„ 

„ 

„ 

„ 


a 

L 

NEPR 

056F 

PC_ 

CODE 


TL I NT 

RSLT., 

„ 

„ 

a 

a 

n 

„ 


„ 

II 

„ 

L 

NEPR 

034D 

PC_ 

CODE 


TL I NT 

TIME. 

u 

H 

M 

„ 

,, 

„ 

tl 

„ 

„ 

a 

L 

NEPR 

01EE 

PC_ 

CODE 


TL I NT 

WPIT. 

„ 


,, 

* 

» 


„ 

„ 

„ 

„ 

L 

NEPR 

0000 



External 

TL OUTP 

„ 

n 



„ 

„ 

n 

i, 


« 

m 

L 

NEPR 

0024 

PC. 

CODE 


TL RC-V 

ICS . 

n 

„ 

„ 



„ 

n 


a 

ft 

L 

NEPR 

0000 



External 

TL RCV 

NLM , 

» 

„ 

tt 

„ 

„ 

ii 

n 

a 

a 

« 

L 

NEPR 

0000 



Externa1 

TL RTN 

RSLT. 


» 

» 

„ 

n 

n 

„ 

» 

a 


N 

PROC 

0290 

PC_ 

CODE 

Global Length =0103 

TL SEND 

NLM,, 

It 

u 


tt 

«, 

n 

a 

If 

ft 

„ 

N 

PROC 

0514 

PC_ 

CODE 

Global Length =008F 

TL SET 

CTR . 

ft 

M 

» 

n 


N 

„ 

« 

tl 


N 

PROC 

0000 

PC_ 

CODE 

Length =000B 

TL SET 

RECV. 

tt 


u 

n 


» 

n 

ft 

„ 


N 

PROC 

00PB 

PC_ 

CODE 

Global Length =0088 

TL SET 

RTRY. 

ft 

„ 

t, 

a 

a 

» 

u 

ft 


a 

L 

NEPR 

00FE 

PC^ 

CODE 

Global 

TL SET 

SEND. 


n 

n 


w 

« 

*, 

w 

ii 


N 

PROC 

0133 

PC_ 

CODE 

Global Length -0018 

TL SET 

TIME. 

„ 

„ 

„ 

M 

„ 

w 

M 

„ 

a 

a 

N 

PROC 

014B 

PC_ 

CODE 

Global Length -0145 

TL SET 

TOPN. 


n 

u 

S, 


u 

„ 

H 

n 

a 

L 

NEPR 

00EE 

PC_ 

CODE 


TL WRD 

IN. . 

a 


n 

„ 

ii 

„ 


w 

„ 

a 

N 

PROC 

0039 

pci 

CODE 

Global Length -000P 

TL WRD 

OUT . 

W 

» 

„ 

w 

a 

u 

» 

« 

m 

a 

N 

PROC 

00 IP 

pci 

CODE 

G1 oba 1 Lengt h -001E! 

TMEOK. 

1 , n 44 

a 

i* 

w 

II 

„ 

„ 

a 


a 

n 

L 

NEPR 

017C 

PC~ 

CODE 


TMEST. 


n 

a 

a 

a 

n 

M 

M 

tt 


„ 

L 

NEPR 

0167 

PC I 

CODE 


TRftCE* 

« « « 

„ 

n 

„ 

t* 

» 

„ 

» 

„ 


„ 

Number 

0001 




TRGOK. 

u w w 

„ 

M 

,4 

„ 

a 

„ 

U 

a 


a 

L 

NEPR 

04E0 

PC_ 

CODE 


TRGRTY 

„ „ M 

n 

* 

a 

„ 

„ 

|4 

„ 

„ 

„ 

a 

L 

NEPR 

04F0 

pc” 

CODE 


T'RBTME 


n 

H 

„ 

ii 



it 


a 

a 

L 

NEPR 

04F7 

pc_ 

CODE 


TRGTMF 

„ a „ 

» 

M 

M 

« 

,t 



ii 

a 

a 

L 

NEPR 

0502 

pc” 

CODE 


TRMGG. 


tl 

n 

„ 

„ 

ii 

a 

„ 

M 

a 

a 

L 

0014 

0080 

pc” 

DPTP 


TRMNRD 

IS n u 

„ 


n 



„ 

II 

u 

„ 

44 

L 

0014 

0058 

pc_ 

DPTP 

Global 

TRMNLM 

it it » 

u 

N 

tt 

ii 



II 



„ 

L 

0014 

0044 

pc” 

DPTP 

G1oba1 

TRMRPY 

U M ft 

„ 

„ 

« 


,» 

„ 

tt 

a 

„ 

„ 

L 

0014 

006C 

PC._ 

DPTP 


TT . 

II M N 


n 


n 

u 

w 

„ 

u 

a 

a 

L 

DWORD 

0004 

PC_ 

DPTP 

G1oba1 

TTBGN. 

WWW 

u 

u 


ii 

ii 

w 

n 


„ 


E 

BYTE 

0008 

PC 

DPTP 

Global 

TTENDu 

W It ft 

n 

„ 


« 

n 

„ 

„ 

n 

it 

a 

E 

BYTE 

00PS 

PC_ 

DPTP 

Global 

VflROP. 

WWW 

» 

„ 

„ 

» 

M 

„ 

» 

„ 

„ 

a 

L 

0014 

0094 

PC, 

DPTP 

Global 

$$DIR. 

««» 



M 

M 

U 

w 

„ 

a 

„ 

„ 

Number 

0008 




m\ NfiM. 

nun 


„ 


W 

. 

14 

H 

a 

„ 

a 

Number 

0008 




**next 


,i 

5, 

,1 

„ 

n 

M 

„ 

a 


a 

Number 

0004 




**SERV 

m n m 

„ 

« 

„ 


n 

w 

H 

a 

a 

a 

Number 

000P 




♦flLLNOD. . . 

it 

« 

S, 

a 

» 


4| 

a 


a 

Number 

00FF 




$PTRNRM 

!. . . 

m 


a 

M 

M 

n 

*1 

m 

a 

a 

Number 

0000 




$CPLLCR 

! w B u 

m 

n 

M 

u 

B 

tt 

« 

u 

a 

a 

Number 

0023 




SCPLLCB 

L« » n 

* 

tl 

ii 

*5 

a 

m 

a 

a 

a 

a 

Number 

001B 








I 


I 

4 

I 

€ 

« 

€ 

€ 

I 

€ 

f 

t 

« 

i 

f 

4 

4 

€ 

f 

« 

f 

I 
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$CALLDI* 


„ 

it 

M 

„ 

„ 

tt 

tt 

tt 

„ 

tt 

„ 

Number 

0068 

$CALL.DB, 




„ 


n 


„ 

„ 

„ 

u 


Number 

00£1 

$CALLEM„ 

„ 


„ 

SI 

u 

„ 

„ 

tt 

tt 

„ 


« 

Number' 

000A 

*CALLKR„ 

n 

„ 

» 

IS 

„ 

is 

„ 


tt 

tt 


tt 

Number 

0034 

$CALLTK. 

„ 

„ 

M 

SI 

tt 

» 


tt 

H 

H 


tt 

Number 

00 1 C 

$CAL.I_TM. 

„ 

„ 

„ 

m 

II 

tt 

„ 

tt 


tt 


a 

Number 

0067 

CALL TP., 


„ 

n 

„ 

„ 

„ 

II 

„ 

u 

K 

II 

IS 

Number 

0001 

$CL_I!MT . 

„ 

n 

ii 

n 

„ 

« 

„ 

„ 

„ 

„ 

tt 

it 

Number 

0S4D 

$COMS« 

„ 

„ 

„ 

n 



„ 

tt 


N 

* 

n 

Number 

0080 

$CONSPT. 

t» 

„ 

» 


„ 

„ 

„ 

H 

„ 

„ 

II 


Number' 

0040 

$CTLGO . 

n 

n 

a 

„ 

tt 

„ 


„ 





Number 

0000 

$CTLIS . 

w 

„ 

„ 

„ 

K 


„ 

„ 

It 

„ 



Number 

0004 

$CTLRP . 

„ 

„ 

n 

a 

„ 

„ 

H 

tt 

tt 

a 



Number 

0003 

UDIINT « 



„ 

m 


„ 

II 

U 

N 

„ 



Number 

0£4C 

$DTAGQ . 

u 

„ 

tt 

tt 

„ 



tt 

„ 

tt 

„ 


Number 

000£ 

$DTAIS . 

u 


„ 

„ 

II 

„ 



„ 

it 

„ 

„ 

Number' 

0004 

$DTALC . 

u 

,, 

IS 

„ 

„ 





„ 

„ 


ft 1 ias 

$MAXTBD 

$DTAND „ 

« 

w 


„ 

„ 


tt 

„ 

II 

a 

„ 


Number 

0000 

t»DTANL . 


„ 

M 

„ 

M 

•» 

tt 

tt 

a 

it 

>| 

si 

Number 

001£ 

$DTARP „ 

» 

K 

W 

„ 

„ 

SI 

„ 

„ 

it 

tt 

„ 


ft 1 ias 

SMAXTBD 

fECHO. » 

» 

n 

II 

« 

„ 


tt 

„ 

•« 

n 



Number 

000£ 

$ENDRCV. 

„ 

„ 

„ 

» 

„ 

« 

„ 


it 

a 

» 


Number 

0010 

$ENINT . 

S» 

M 

SI 


« 

IS 

It 

tt 


I* 

IS 

u 

Number 

0£4E 

$FALSE , 

m 

II 

H 

H 

„ 

tt 

SI 

IS 

n 

tt 

tt 

ts 

Number' 

0001 

$ INITT . 

„ 

„ 

» 

•1 

tt 

M 

tt 

tt 

IS 


tl 

tt 

Number 

00£0 

«INITTA„ 

n 

n 

„ 


tt 

„ 

a 

II 


St 

„ 

a 

Number 

0100 

$INT$. . 

a 

„ 


» 

tt 

« 

tt 


„ 

it 


„ 

Number 

00CD 

$L„CABT . 

it 

M 

*1 

II 

SI 

«t 

IS 

tt 


tt 

R 

«, 

Number 

00FF 

$LCAOK . 

„ 

„ 

„ 

St 

IS 

II 

«s 

tt 

„ 

tt 

M 

M 

Number' 

0000 

SLCMAXL. 

« 

w 

tt 

tt 

tt 

m 

tt 

IS 

tt 

tt 

II 

tt 

ft 1 i as 

$MAXTBD 

$LCNOP . 

u 

„ 

„ 

u 

tt 

IS 

it 

IS 

tt 

It 

tt 

tt 

ft 1 ias 

$FALSE 

$LCOPN „ 

„ 

u 

„ 

„ 

tt 

„ 

„ 

tt 

„ 

tt 

tt 

it 

ft 1 i as 

$TRUE 

&MAXDLY. 

u 

tt 

M 

tt 

II 


„ 

It 

a 

U 

tt 

• 

Number 

7FFF 

$MAXMSG. 

„ 

„ 

« 

„ 

a 

tt 

it 

II 

« 

tt 

tt 


Number 

0066 

tMAXRTY. 

ii 

1* 


„ 

« 

tt 

» 

tt 

tt 

tt 

tt 

a 

Number 

0010 

$MAXTBD, 

« 

n 

M 

II 

n 

w 

m 

tt 

« 

tt 

„ 

» 

Number' 

0£ 11 

fiMAXWTE. 



U 

1. 

si 


tt 

It 

St 

It 

tt 

tt 

Number 

000A 

$MND00 . 


M 

„ 


M 

tt 

„ 

tt 

tt 

n 

•I 

n 

Number' 

0001 

$MND01 . 

M 

« 


„ 

„ 

M 

tt 

tt 

tt 

t« 

„ 


Number' 

0009 

$MIMD0£ „ 


ti 


tt 


SI 

M 

It 

St 

tt 

„ 


Number 

000A 

$MND03 . 

U 

„ 

a 

n 

u 

II 


tt 

Sl 

„ 

It 

,» 

Number 

000B 

$MIMD04 . 

„ 

» 

tt 


„ 

H 

It 

„ 


tt 


„ 

Number 

000C 

f>MMD05 „ 

II 


„ 

tt 

tt 

St 


tt 

« 

„ 

tt 

u 

Number 

0011 

*MND06 . 

n 

M 

n 

tt 



„ 

II 

tt 

„ 

II 

it 

Number' 

0013 

$MMT00 . 


W 

„ 



„ 

tt 

tt 

It 

IS 

II 

n 

Number 

000c! 

$MNT01 . 

M 

» 

H 

tt 

„ 

It 

tt 

tt 

« 

b 

tt 

a 

Number 

0003 

fMMT010. 


tt 

IS 

II 

u 

„ 

t» 


It 

„ 

» 


Number 

0010 

$MNT011. 

M 

w 


tt 


„ 

tt 

tt 

tt 

M 

„ 

is 

Number 

001£ 

*MWT012„ 

K 

tt 

St 

SI 

tt 

It 

tt 

It 

tt 

tt 

» 

it 

Number 

0014 

$MNT0£ „ 


w 

w 

a 


tt 

« 

„ 

„ 

tt 

tt 

« 

Number' 

0004 

f.MMT03 . 

M 


tt 

u 

„ 

tt 

tt 

U 

tt 

It 

It 


Number 

0005 

$MNT04 . 

M 

n 

tt 

„ 

m 

tt 

tt 

tt 

It 

tt 

tt 

« 

Number' 

0006 

$MNT05 . 

* 


tt 

tt 

tt 


tt 

» 

IS 

1. 

tt 

St 

Number' 

0007 

$MNT06 . 



m 




tt 


H 


» 

ts 

Number' 

0008 

*MNT07 . 

IS 


SI 

tt 

tt 

1, 

tt 

» 

SI 

tt 

It 

« 

Number' 

000D 


< 

« 

c 

I 

4 

I 

4 

« 

I 

4 

4 

€ 

* 

I 

4 

4 

4 

€ 

4 

« 


< 
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♦MIMT08 . 

,, 

» 

it 

II 

II 

«i 

a 

» 

„ 

B 

„ 


Number 

000E 

♦MNT©9 ■ 

K 

M 

a 

II 

IS 

„ 

M 

„ 

M 

„ 

tl 

n 

Number' 

000F 

♦MTftDD 

» 

U 

„ 

„ 

II 


„ 

„ 

II 

„ 


H 

Number 

0003 

♦MTDEL . 

w 

II 

M 

„ 

„ 

w 

„ 

„ 


« 

5, 

tt 

Number 

0000 

♦NftDOK „ 


„ 

u 

„ 

II 



tt 


II 

It 

.. 

Number 

0040 

♦NftMELN. 

„ 

tl 

* 

„ 

II 

„ 

„ 



II 

a 

tt 

Number' 

000ft 

♦NLANY „ 

„ 

* 

„ 

„ 

„ 

m 

« 

tt 



b 

» 

Number 

0001 

♦NLBYE * 

M 

II 

tt 



a 

tt 

„ 

It 

„ 

„ 

SI 

Number 

00FF 

♦NLDNY » 

„ 

U 

„ 

W 

« 


It 

tt 

tt 

n 

. 


Number 

00FF 

♦NLDSK . 

U 

„ 

„ 

„ 

„ 

„ 

tl 

tt 

M 

tt 

IS 

tt 

Number 

0001 

♦ NLHIn 


M 

u 


II 

u 

„ 

II 

„ 

„ 

„ 

M 

Number 

0000 

♦NLIDN w 

„ 

„ 

„ 

•1 

II 

„ 

II 

a 


. 

„ 

„ 

Number 

0010 

♦NLWHO 

„ 

4, 

.1 

u 

u 

a 

It 

.. 

tt 

tt 

It 

tt 

Number 

000£ 

♦NLWHR « 


„ 

n 

„ 

n 

« 


u 


tt 

b 


Number 

0003 

♦ONE u . 

„ 

„ 

„ 

II 

„ 

„ 


„ 

„ 

„ 

tt 

„ 

Number 

0001 

♦OPCNE - 

u 

„ 

M 


II 

n 

H 

„ 

„ 

tt 

tt 

tt 

Number 

0000 

♦op :i: ml „ 

„ 

n 

» 

It 

II 

„ 

„ 


II 

tt 

tt 

u 

Number 

0001 

♦□PUMP „ 

„ 

„ 

„ 

M 

M 

tt 

tt 

„ 

„ 

„ 

„ 

B 

Number' 

00FF 

♦OPTCL « 

tt 

„ 

„ 

„ 

n 

» 

tt 

it 

It 

tt 

» 

» 

Number 

0007 

♦OPTDF . 

m 

n 

II 

« 

„ 

it 

„ 

m 


tt 

tt 

„ 

Number 

0004 

DOPING w 

« 

„ 

II 

II 

n 

it 

tt 

„ 

„ 

tt 

tt 

II 

Number 

0005 

♦OPTRB « 


„ 

„ 

II 

„ 

„ 

« 

„ 

„ 

« 

N 

II 

Number' 

0002 

♦OPTTF * 

a 


» 

tt 


» 

H 

tl 

„ 

It 

« 

II 

Number 

0006 

♦OPTTO . 


u 

» 

a 

„ 

u 

It 


I. 

II 

„ 

„ 

Number' 

0003 

♦PBSEML. 

it 

„ 

>1 

«• 

« 

tt 


tt 

tt 

tt 

* 

« 

Number 

0005 

♦P8SENB* 


u 


« 

,, 

it 

« 

tt 

„ 

II 

II 

tt 

Number' 

00Fft 

♦PBSEO I» 


„ 


» 

„ 

tt 

II 

tt 

II 

it 

u 

» 

Number 

0020 

♦PBEGP8* 

« 

„ 

<1 

it 

w 

tt 

Si 

II 

<1 

tt 

•i 

„ 

Number' 

00£0 

♦PBSOP1 . 

„ 

n 

It 

M 

w 

tt 

tt 

It 

It 

„ 


I. 

Number 

00£1 

♦P8SRIS. 

» 

„ 


» 

,, 

I* 

» 

tt 

tt 

4, 

„ 

is 

Number 

000B 

♦PB£*TML„ 

„ 

« 


It 

u 

tt 

K 

« 

II 

tt 

» 

tt 

Number 

0001 

♦PROID „ 

„ 

•c 

„ 

„ 


II 

II 

„ 

II 

II 

„ 

n 

Number 

01FE 

♦ RDRAM .. 

M 

w 

u 


u 

II 

„ 

tt 

„ 

„ 

tt 

» 

Number 

0£49 

♦RDRAMI„ 

„ 


M 

It 

a 

„ 

H 

tt 

„ 

„ 

a 

b 

Number 

0£4B 

♦RDSTftT. 

„ 


„ 

„ 

,, 

tt 

tt 



u 

» 

si 

Number 

0£48 

♦RQCSZEu 

U 

„ 

a 

„ 

„ 

u 

>1 

tt 

II 

tt 


tt 

Number 

0004 

♦RQDSE . 

u 

„ 

n 

U 


tt 

tt 

„ 

U 

IS 

» 

n 

Number 

0080 

♦RQENT - 

„ 


n 

* 

„ 

tt 

„ 

„ 

tt 

tt 

ti 

H 

Number 

0001 

♦RQFUL « 

tt 

„ 

it 

« 

tl 

„ 

„ 

tt 

II 

M 

ti 

„ 

Number 

00FF 

♦RQMT„ . 

ID 

» 

„ 

II 

n 

u 


tt 

II 

tt 

n 


Number 

0000 

♦RQUSEE. 


a 

u 

n 


tt 

II 

It 

tt 

II 

n 

„ 

Number 

0080 

♦ROUSEI. 

It 

„ 


„ 

m 

B 

tt 

„ 

M 

B 

„ 

it 

Number 

0010 

♦ RGUSEL. 

M 

„ 

K 

„ 

it 

It 

„ 

„ 

tt 

H 

„ 

n 

Number 

00£0 

♦ROUSER. 

l« 

„ 

U 


M 

„ 

II 

„ 

tt 

tt 


tt 

Number 

0040 

♦SEND. * 

u 

n 

tt 

tt 

„ 

„ 

tl 

tt 

» 



it 

Number 

0040 

♦SETUP „ 

u 

tt 

n 

M 

II 

II 

W 

tt 

„ 

B 

» 

it 

Number 

00F0 

♦SKNUM . 

„ 

U 

H 

M 

„ 

I. 

B 

tl 

II 


» 

u 

Number 

0060 

♦SNDNAD* 

H 

n 

n 

a 


tt 

II 

tt 

II 

II 

M 

M 

Number' 

00CF 

♦SOKRC . 

u 

„ 

« 

H 

u 

tt 


» 

» 

tt 

n 

tt 

Number 

00B0 

♦SOKRL ti 

a 

tt 

M 

tt 

u 

„ 

it 



,, 



Number 

0000 

♦SOKRM „ 

m 

w 

„ 

m 


tt 

tt 


„ 


„ 


Number 

0080 

♦SOKTD . 

n 


n 

U 

n 

1, 

tt 

II 

tt 


«• 

It 

Number 

00B0 

♦SOKTM * 

tt 


M 

M 

it 

II 

ss 

tt 

1* 

» 

i* 

tt 

Number 

0080 

♦STINT * 

M 

w 

# 

1* 

t« 

*s 

It 

IS 

tt 

IS 

» 

tt 

Number 

0£4F 

♦TftCCB u 

It 

it 


•1 

it 

n 

tt 

t# 

tt 

tt 

m 

» 

Number 

05C6 



I 

I 

« 

€ 

t 

i 

f 

I 

f 

« 

t 

I 

I 

4 

< 

i 

< 

f 

I 

t 

f 


The IBM Per-son a I Computer 


urmDTL „ 

$TfiRR. . 
$TBINIT. 
$TBINTI. 
$TBNOTK- 
$TBRENB. 
^TBRTCK. 
$TICKMX„ 
*TRAPFL. 
$TRCCON. 
*TRCDSK. 
STRCHRD. 
$TRCL» .. 
$TRDL. . 
*TREft. . 
STREDY - 
$TRENB . 
$TRIS, 
*TRIT. . 
*TRNG. . 
$TRNR. . 
*TRNS. . 
f>TRDK. » 
*TRPND , 
*TRSS. - 
♦TRST. . 
$TRSU. . 
*TRUE. . 
*VIR_DRV1 
SWHOAMI. 
*WRCTRH. 
SWRCTRL. 
SWRRflM .. 
itWRSTBE. 
$ZERO. „ 

?70000 . 

7 70001 . 
770002 . 
770003 . 
770004 . 
770005 . 
770006 . 
770007 . 
770008 ■ 
770003 » 

7 7000ft . 
77000B . 
77000C . 
77000D 
77000E - 
77000F . 
770010 . 
770011 . 

770012 . 
770013 , 


MftCRO ftssernta I er 01-14-84 PftGE 


„ 

„ 

,, 

Number 

05D6 



„ 

„ 

Number 

05D£ 


2, 

„ 

22 

Number' 

0010 


„ 


,, 

Number 

0080 


u 


M 

Number 

00DF 


M 

m 

M 

Number 

0040 



» 

M 

Number 

00S0 



ii 

22 

Number' 

000ft 


„ 


„ 

Number 

0001 


„ 

12 

22 

Number 

000£ 




w 

Number 

0001 


„ 

2| 

„ 

Number 

0004 




2| 

Number 

0083 




„ 

Number 

0081 




It 

Number 

0000 



22 

„ 

Number 

0080 



n 

„ 

Number 

00£0 



„ 

22 

Number' 

0084 



„ 

u 

Number 

0086 




n 

Number 

0080 


„ 

W 


Number 

0085 


„ 

« 

„ 

Number 

008S 


n 

22 

w 

Number 

0000 



„ 

„ 

Number 

0010 


» 


it 

Number 

00FE 


„ 

22 

„ 

Number 

007F 


„ 

„ 

a 

Number 

00FF 


M 

22 


Number' 

0000 


B 

22 

„ 

Number 

0001 


a 

22 


Number 

0001 


M 

B 


Number 

0E-48 


» 

22 


Number 

024ft 


„ 

It 

„ 

Number 

0£4B 


B 

22 

„ 

Number 

0£43 



„ 

22 

Number 

0000 




„ 

L NEAR 

00C1 

PC._C0DE 

w 

|2 


L. WORD 

00ft8 

PC_DATft 

2| 

2| 

n 

L BYTE 

00ftft 

PC__DftTft 

H 

n 

„ 

E BYTE 

00B7 

PC__DftTft 


i* 

„ 

L NEAR 

00ED 

PC_C0DE 

W 

22 

,, 

L WORD 

00B7 

PC_DftTft 

„ 

II 


L BYTE 

00B3 

PC .DfiTft 

a 

N 

2| 

E BYTE 

00C6 

PC__DftTft 


II 

„ 

L NEAR 

013£ 

PC„C0DE 

„ 

II 

22 

L WORD 

00C6 

PC_DATft 

u 

n 

„ 

L BYTE 

00C8 

PC__DfiTfi 

it 

22 


E BYTE 

00D3 

PC_DftTfi 


« 

W 

L NEAR 

0149 

PC„C0DE 

M 

„ 

a 

L WORD 

00D9 

PC_.DATA 

W 

w 

u 

L BYTE 

00DB 

PC„DflTft 


,, 

tt 

E BYTE 

00E8 

PC_DftTft 

» 

» 

„ 

L NEAR 

0161 

PC_C0DE 

M 

« 

II 

L WORD 

00E8 

PC_DATft 

It 

w 


L BYTE 

00Eft 

PC DftTft 

H 

u 

U 

E BYTE 

00F7 

PC__DftTft 


f 


Symbols—8 


i 


t 

€ 

€ 

I 

C 

t 

f 

f 

c 

I 

€ 

€ 

« 

€ 

I 

I 

I 

€ 

f 

i 


« 





The IBM Personal Computer MACRO Assembler 01—14—84 


PPG E 


Symbols 


?70014 

» 


M 


„ 


w 

II 




» 

It 

L 

NEftR 

01 ED 

PC. 

_CODE 

770015 



H 





w 

„ 

ii 

,, 

u 

U 

L 

WORD 

00F7 

PC 

_DftTft 

?';»0016 

W 


H 


„ 

„ 

n 

n 

,1 

ii 


u 

u 

L 

BYTE 

00F9 

PC 

iDftTfl 

7 70017 


n 

M 


0 

a 

„ 

II 

n 

n 


51 

M 

E 

BYTE 

0106 

PC 

_DftTft 

770016 

J§ 


tt 

U 

II 

11 

n 


N 

ii 

H 

H 

„ 

L 

NEftR 

0204 

PC 

~CODE 

770019 


u 

M 


M 

„ 

M 

H 

II 

w 

II 

It 

M 

L 

WORD 

0106 

PC 

_DftTft 

7 7001ft 


„ 

„ 

„ 


u 

n 

n 

„ 

n 


„ 

M 

L 

BYTE 

0108 

PC 

_DftTft 

7700IB 

u 



„ 

11 


„ 

,, 

„ 

u 

n 

II 


E 

BYTE 

0115 

PC 

_DftTft 

7 7001C 

w 

n 

„ 

» 

II 

II 

II 

II 

,, 

u 

„ 



L 

NEftR 

0206 

PC 

"code 

7 7 001D 

m 


„ 

,, 

it 

„ 

II 

n 

II 

„ 


I. 

II 

L 

WORD 

0115 

PC 

_DftTft 

7 7 00 IE 

w 


„ 


M 

„ 

II 

it 

„ 

„ 

„ 

It 


L 

BYTE 

0117 

PC 

iDflTft 

7700 IF 

« 


II 


„ 

t» 

II 

ti 


»» 


tt 

m 

E 

BYTE 

0124 

PC 

~DftTft 

770020 

„ t 


H 

„ 

„ 

u 

„ 

,, 

n 

„ 


B 

m 

L 

NEftR 

0340 

PC 

-CODE 

770021 

n 

n 

M 


u 

n 

w 

M 

B 

II 

It 

n 

n 

L 

WORD 

0124 

PC 

DftTft 

770022 

« 

M 

„ 

II 

U 

H 

II 

H 

1, 

„ 



w 

L 

BYTE 

0126 

PC 

_DfiTft 

770023 

w 

n 

II 

n 

B 

n 


„ 

tt 

„ 

« 

„ 

* 

E 

BYTE 

0133 

PC 

-DftTft 

770024 

M 

« 


„ 

II 

* 

n 


U 

M 

„ 

„ 

tt 

L 

NEftR 

0363 

PC 

_CODE 

770025 

it 

n 


w 


a 

„ 

N 

n 



„ 

to 

i 

L. 

WORD 

0133 

PC 

_DftTft 

770026 

n 


„ 

M 


a 

„ 

« 

M 

„ 

w 

n 

to 

L. 

BYTE 

0135 

PC 

_ DftTft 

770027 

tt 


M 

u 


ll 

« 

II 

tt 

It 

II 

n 

m 

E 

BYTE 

0142 

PC 

” DftTft 

770028 

a 

M 

„ 

„ 

„ 

a 

M 

,, 

„ 

M 

n 

» 

n 

L 

NEftR 

0309 

PC 

_CODE 

770029 

n 


w 

n 

„ 

„ 

n 


ii 

K 

,, 

„ 

to 

L 

WORD 

0142 

PC 

_DftTft 

77002ft 

n 

II 

M 

M 

« 

u 


It 

n 


n 

M 

IS 

L 

BYTE 

0144 

PC 

"DftTft 

77002B 




n 


ii 


a 

n 



tl 

to 

E 

BYTE 

0151 

PC 

DftTft 

770020 

to 

M 

U 

* 

,, 

* 

„ 

« 



„ 

II 

u 

L 

NEftR 

0434 

PC 

_CODE 

77002D 

n 

H 

tt 

*i 

„ 

w 

n 

M 

H 

tt 

M 

„ 

n 

L 

WORD 

0151 

PC 

_DftTft 

77002E 

to 


« 

m 

a 

M 

B 

M 

U 

tt 

It 

M 

» 

L 

BYTE 

0153 

PC 

^DftTft 

77002F 

» 


w 

It 

n 

n 


n 

„ 

» 

t# 

It 

ts 

E 

BYTE 

0160 

PC 

-DftTft 

770030 

13 

» 

K 

„ 

M 

„ 

„ 

a 


tt 

II 


is 

L. 

NEftR 

044B 

PC 

_CODE 

770031 




„ 

II 

II 

B 

a 

a 

II 

M 

„ 

«• 

L 

WORD 

0160 

PC 

DftTft 

770032 



u 

M 

It 

n 

n 


it 

n 

n 

M 

it 

L 

BYTE 

0162 

PC 

-DftTft 

770033 

It 


n 


n 

u 

„ 


m 

„ 


n 


E 

BYTE 

016E 

PC 

_DftTft 

770034 

IS 

It 


M 

u 

„ 

II 



a 

u 



L 

NEftR 

04Dft 

PC 

_CODE 

770035 

» 

M 

M 

II 

„ 

n 

n 


u 

„ 

it 

„ 


L 

WORD 

016E 

PC 

~DftTft 

770036 

M 

a 

M 


u 

„ 

,, 



n 

tl 

tt 

ts 

L 

BYTE 

0170 

PC 

-DftTft 

770037 

It 


n 


n 

II 

n 


H 


u 

It 

tt 

E 

BYTE 

0170 

PC 

DftTft 

770038 

H 


„ 

„ 

a 

It 

„ 


II 



„ 

tt 

L 

NEftR 

052ft 

PC 

-CODE 

770039 

„ 


«l 

It 

» 

n 


„ 

M 

* 

n 

« 

«« 

L 

WORD 

0170 

PC 

_DATfl 

77003ft 




H 

ii 

It 

a 

n 

It 

N 

ii 

II 

» 

L 

BYTE 

017E 

PC 

_DftTft 

77003B 

n 

„ 

n 

m 

ii 

„ 

* 

n 

„ 

w 

„ 

„ 

N 

E 

BYTE 

018B 

PC 

~DftTft 

770030 

n 



ii 




M 

H 

n 


B 

tt 

L 

NEftR 

056E 

PC 

ICODE 

77003D 

H 

w 


„ 

w 

H 

ti 

II 

n 

tt 

„ 


tt 

L 

WORD 

018B 

PC 

_DftTfl 

77003E 

« 




« 


„ 

n 


„ 

tt 


M 

L 

BYTE 

018D 

PC 

~DftTft 

77003F 


w 



n 


„ 

n 


„ 

„ 

It 

tt 

E 

BYTE 

019ft 

PC 

-DftTft 

770040 

«» 

u 


u 

II 

„ 

M 

ii 

It 

M 

« 

M 

tt 

L 

NEftR 

0585 

PC 

CODE 

770041 


n 


„ 

M 

It 

It 

„ 

n 



It 

tt 

L 

WORD 

019ft 

PC 

_DftT ft 

770042 

« 

n 

B 


„ 


,, 


n 

u 

n 

It 

tt 

L 

BYTE 

0190 

PC 

~DftTfi 

770043 


u 



w 



„ 

„ 

M 

„ 

B 


E 

BYTE 

0108 

PC 

~DftTft 


Warning Severe 
E r r o r s Er r o r s 


